我设计了一个窗口,窗口中只有一个按钮和一个文本框,写了一段代码,希望能够把搜索到的字符串输出到窗口的TextBox1中,运行倒是成功了,可是输出的是找到的最后一个字符串,而我是希望能把找到的所有字符串全部输出到Textbox1中,并且用","隔开,不晓得怎样加代码.
希望高手指点,谢谢!
Dim s1 AS String=Currenttable.Current("兼容电池")
s1=s1.ToLower()
Dim s2 As String=Currenttable.Current("查找型号")
s2=s2.ToLower()
Dim s3 AS String=Currenttable.Current("兼容电脑")
s3=s3.ToLower()
Dim s4 AS String=s1 & "," & s3
Dim values1() As String
values1=s4.split(",")
For Index As Integer = 0 To Values1.Length - 1
If values1(Index).Contains(s2) Then
e.Form.Controls("TextBox1").Value =values1(Index)
End If
Next