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的数量
"望提供排序代码
VB.NET 从数据库Access中获取字符串问题
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
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
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 1无用
悬赏问题
- ¥15 HFSS 中的 H 场图与 MATLAB 中绘制的 B1 场 部分对应不上
- ¥15 如何在scanpy上做差异基因和通路富集?
- ¥20 关于#硬件工程#的问题,请各位专家解答!
- ¥15 关于#matlab#的问题:期望的系统闭环传递函数为G(s)=wn^2/s^2+2¢wn+wn^2阻尼系数¢=0.707,使系统具有较小的超调量
- ¥15 FLUENT如何实现在堆积颗粒的上表面加载高斯热源
- ¥30 截图中的mathematics程序转换成matlab
- ¥15 动力学代码报错,维度不匹配
- ¥15 Power query添加列问题
- ¥50 Kubernetes&Fission&Eleasticsearch
- ¥15 報錯:Person is not mapped,如何解決?