用字符串保存两个数据，当然只有你这种办法，另外提供你其它思路：
站在用户的角度思考问题，与客户深入沟通，找到德化网站设计与德化网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：成都网站设计、网站制作、企业官网、英文网站、手机端网站、网站推广、空间域名、虚拟空间、企业邮箱。业务覆盖德化地区。
1. flexcell增加两列，这两列隐藏不显示，额外数据可以从这两列读取
2. 用自定义类型数组，保存这两列数据，数组顺序和表格一样，或者数组中增加一个ID元素，与表格对应
字符串的操作应用
[vb]
Module Module
Sub Main()
定义 个字符串变量
Dim str str str As String
给str str 付初值
str = Hello : str = World
Console WriteLine( 方法Concat )
连接一个或多个字符串
Console WriteLine( str ={ } str ={ } String Concat(str str )={ } str str String Concat(str str ))
判断字符串中是否具有相同的值返回类型为布尔型
Console WriteLine( 方法Equals )
Console WriteLine( str ={ } str ={ } String Equals(str )={ } str str str Equals(str ))
在字符串中指定索引位置插入指定的字符串
Console WriteLine( 方法Insert )
str = : str = aaa
Console WriteLine( str ={ } str ={ } str Insert( str )={ } str str str Insert( str ))
左右对齐字符串中的字符
Console WriteLine( 方法PadLeft/PadRight )
str = World : str = 世界
Console WriteLine( str ={ } str )
Console WriteLine( str PadLeft( * )={ } str PadRight( * )={ } str PadLeft( * ) str PadRight( * ))
Console WriteLine( str ={ } str )
Console WriteLine( str PadLeft( * )={ } str PadRight( * )={ } str PadLeft( * ) str PadRight( * ))
找出指定字符串或字符转在此字符串中的第一个 最后一个匹配项的索引位置
Console WriteLine( 方法IndexOf/LastIndexOf )
str = Visual Basic NET ASP NET C# NET
Console WriteLine( str ={ } str )
Console WriteLine( str IndexOf( NET )={ } str LastIndexOf( NET )={ } str IndexOf( NET ) str LastIndexOf( NET ))
将字符串中的字符复制到字符串数组
Console WriteLine( 方法ToCharArray )
str = str ToCharArray(str IndexOf( NET ) )
Console WriteLine( str ={ } str )
Console WriteLine( str ToCharArray(str IndexOf( NET ) )={ } str )
在指定字符串数组的每个元素之间串联指定的分隔符 产生单个串联的字符串
Console WriteLine( 方法Join )
Dim myArray( ) As String
myArray( ) = I : myArray( ) = am : myArray( ) = a : myArray( ) = student
For i As Integer = To
Console Write( myArrat({ })={ } i myArray(i))
Next
Console WriteLine()
Console WriteLine( String Join( * myArray)={ } String Join( * myArray))
此字符串中删除指定个数字符
Console WriteLine( 方法Remove )
str =
Console WriteLine( str ={ } str Remove( )={ } str str Remove( ))
将此字符串指定字符串字符的所有匹配项代替为其他指定字符串
Console WriteLine( 方法Replace )
str =
str = abc
Console WriteLine( str ={ } str ={ } str ={ } str Replace(str str )={ } str str str str Replace(str str ))
从此字符串检索字符串
Console WriteLine( 方法SubString )
Console WriteLine( str ={ } str Substring( )={ } str str Substring( ))
Console ReadLine()
End Sub
lishixinzhi/Article/program/net/201311/13956
直接For就行了
Dim ctl As Control
Dim lbl as Label
For Each ctl In Me.Controls
If ctl.GetType.ToString = "System.Windows.Forms.Label" Then
lbl = CType(ctl,Label)
'得到一个Label,可以对它进行赋值操作了
Msgbox lbl.Name
End If
Next
字符串加变量？还是用类似于VB6的控件数组方便些：
Dim lbl() = { Label1, Label2, Label3, .... } '先将窗体上的Label控件定义为数组
i=1
lbl(i).Text = "xxxx" '然后当作控件数组来用
请参考下面的代码，希望能帮到你。
假设在richtextbox1中查找字符串"你是谁":
Dim start As Integer = richtextbox1.Find("你是谁", 0, RichTextBoxFinds.MatchCase)
if (start = 0) {
richtextbox1.SelectionStart = start
richtextbox1.SelectionLength = "你是谁".Length
}
