VB应用:在TEXTBOX中使用逗号区分数据

80酷酷网    80kuku.com

  数据---------VB应用:在TEXTBOX中使用逗号区分数据------------

主要作用是在查询数据库时,要求同一字段的多条件的查询,SQL语句的生成,下面代码是利用一个TextAfter的数组存放用逗号分隔开的数据。

Dim intTextLen, i, k As Integer
Dim TextBefore, TextAfter(100) As String
intTextLen = Len(TextBox1.Text)
k = 1
TextBefore = TextBox1.Text
For i = 1 To intTextLen
If Mid(TextBefore, i, 1) = "," Then
k += 1
Else
TextAfter(k) = TextAfter(k) & Mid(TextBefore, i, 1)
End If
Next

待续

-----------end------------

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: