Pandy_PB 2021-02-22 15:50 采纳率: 20%
浏览 102
已采纳

VB.NET 从数据库Access中获取字符串问题

Dim Str1 As String
Dim str2 As String
dim i as integer
Dim myTb As TextBox
myTb = Controls("textbox" & i)
Str1 = "_"
Str2 = DataGridView1.Rows(7).Cells(7).Value '字符串 str2中有多个"_"

'想通过截取字符串str2的内容,赋值于myTb.text
'截取字符串要求是"_"之前的内容,例如 abc_defg_1_dd (但此处未知有多少个"_", "a"为起始值)
'分别将 abc赋值于textbox1, defg赋值于textbox2, 1赋值于textbox3, ...
"因此处有三个变量,即 "_"的个数,"_"在str2中的位置,textbox的数量
"望提供排序代码
  • 写回答

4条回答 默认 最新

  • Go 旅城通票 2021-02-22 17:39
    关注

    vb不会,不过你这种只需要Split下,然后遍历拆分的数据,获取控件后赋值就行了

    Str2 = DataGridView1.Rows(7).Cells(7).Value '字符串 str2中有多个"_"
    
    Dim arr = Split(Str, "_")
    
    
    Dim l = arr.Length
    
     For i = 0 To l
               myTb = Controls("textbox" & i)'还要注意textbox的下标起始
    
    '这里要判断myTb是否为null,要不数组数据长度大于你textbox的数量会报错,不会vb,楼主自己可以加代码。如果是C#用 if(myTb!=null)
    
            myTb.Text=arr (i)
    
    Next
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(3条)

报告相同问题?

悬赏问题

  • ¥15 基于作物生长模型下,有限水资源的最大化粮食产量的资源优化模型建立
  • ¥15 生成的QRCode圖片加上下載按鈕
  • ¥15 板材切割优化算法,数学建模,python,lingo
  • ¥15 科来模拟ARP欺骗困惑求解
  • ¥100 iOS开发关于快捷指令截屏后如何将截屏(或从截屏中提取出的文本)回传给本应用并打开指定页面
  • ¥15 unity连接Sqlserver
  • ¥15 图中这种约束条件lingo该怎么表示出来
  • ¥15 VSCode里的Prettier如何实现等式赋值后的对齐效果?
  • ¥15 流式socket文件传输答疑
  • ¥20 keepalive配置业务服务双机单活的方法。业务服务一定是要双机单活的方式