第一问答网»论坛 › 中问网 › 问答 › 语句未结束：StrTmp = StrTmp & "Rs("ID")" 求教？？ ...

语句未结束：StrTmp = StrTmp & "Rs("ID")" 求教？？

11 |

1 | 2010-10-5 18:11:42 | 显示全部楼层 |阅读模式

FunctionGetClassID(diqu)
Sql="select ID from Ok3w_Class where diqu=" & diqu
Rs.Open Sql,Conn,0,1
StrTmp = "and ClassID=("
Dim num
num=1
Do While Not Rs.Eof

If num>1 Then

StrTmp = StrTmp & "OR"

End If

StrTmp = StrTmp & "Rs("ID")"
Rs.MoveNext
num=num+1
Loop
Rs.Close
StrTmp = StrTmp & ")"
GetClassID = " & StrTmp & "
End Function

使用道具举报