———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————
