其他人已经得到了部分内容,但我认为没有人得到这一切正确。它应该是这样的:
strLocalSql = "SELECT tblEventTypeList.EventType" & _
" FROM tblEventTypeList" & _
" WHERE tblEventTypeList.[EventPage] = " & ts & _
" ORDER BY tblEventTypeList.[EventType];"
这假定您的EvenPage字段是数字(并且ts变量中的值是数字)。如果是文本,那么你需要这个,而是:
strLocalSql = "SELECT tblEventTypeList.EventType" & _
" FROM tblEventTypeList" & _
" WHERE tblEventTypeList.[EventPage] = " _
& Chr(34) & ts & Chr(34) & _
" ORDER BY tblEventTypeList.[EventType];"
就个人而言,我在我所有的Access项目保持恒定的定义这样的:
Global Const STR_QUOTE As String = """"
...然后我使用常数串联。不过,我希望我已经命名为strQ,因为名字太长了。但我已经使用了十多年了,所以我很难改变!这会工作:
Global Const strQ As String = """"
strLocalSql = "SELECT tblEventTypeList.EventType" & _
" FROM tblEventTypeList" & _
" WHERE tblEventTypeList.[EventPage] = " _
& strQ & ts & strQ & _
" ORDER BY tblEventTypeList.[EventType];"
...但当然,这是唯一正确的,如果EvenPage是一个字符串。
以及FROM ... – hawbsl 2010-10-11 14:53:58