Question

vb代码 str = TEXT1.TEXT("str")

str = TEXT1.TEXT("str")
str = split(str, vbcrlf)
s = ""
for i = 0 to ubound(str)
if str(i) <> "" then s = s & "'" & str(i) & "',"
next
s = left(s, len(s) - 1)

sql="select * from [表名] where [字段] in (" & s & ")"

这个代码哪里错了？vb里提示STR错误

Answer 1

str = TEXT1.TEXT("str")
str = split(str, vbcrlf)

请不要使用VB中特定名称命名变量。
STR是一个VB函数。

把STR这个变量改成STR1就OK了。

Answer 2

str = TEXT1.TEXT("str")

textbox控件没这个用法。
改成这样：
str=Text1.Text
str = split(str, vbcrlf)
s = ""
for i = 0 to ubound(str)
if str(i) <> "" then s = s & "'" & str(i) & "',"
next
s = left(s, len(s) - 1)

sql="select * from [表名] where [字段] in (" & s & ")"

Answer 3

str没有定型"变量"