where 子句语法错误If Combo1.Text = "在库图书" ThenCall Form_LoadCombo1.ListIndex = 1SQL = "select * from jhk where"rs.Open SQL,connDo While Not rs.EOFIf Not IsDate(rs!HSRQ) ThenBmh$ = rs!BmhFor i = 1 To MSFlexGrid1.Rows - 1If Trim(MSFlexGri
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/14 18:10:01
![where 子句语法错误If Combo1.Text =](/uploads/image/z/15053580-36-0.jpg?t=where+%E5%AD%90%E5%8F%A5%E8%AF%AD%E6%B3%95%E9%94%99%E8%AF%AFIf+Combo1.Text+%3D+%22%E5%9C%A8%E5%BA%93%E5%9B%BE%E4%B9%A6%22+ThenCall+Form_LoadCombo1.ListIndex+%3D+1SQL+%3D+%22select+%2A+from+jhk+where%22rs.Open+SQL%2CconnDo+While+Not+rs.EOFIf+Not+IsDate%28rs%21HSRQ%29+ThenBmh%24+%3D+rs%21BmhFor+i+%3D+1+To+MSFlexGrid1.Rows+-+1If+Trim%28MSFlexGri)
where 子句语法错误If Combo1.Text = "在库图书" ThenCall Form_LoadCombo1.ListIndex = 1SQL = "select * from jhk where"rs.Open SQL,connDo While Not rs.EOFIf Not IsDate(rs!HSRQ) ThenBmh$ = rs!BmhFor i = 1 To MSFlexGrid1.Rows - 1If Trim(MSFlexGri
where 子句语法错误
If Combo1.Text = "在库图书" Then
Call Form_Load
Combo1.ListIndex = 1
SQL = "select * from jhk where"
rs.Open SQL,conn
Do While Not rs.EOF
If Not IsDate(rs!HSRQ) Then
Bmh$ = rs!Bmh
For i = 1 To MSFlexGrid1.Rows - 1
If Trim(MSFlexGrid1.TextMatrix(i,1)) = Trim(Bmh$) Then
MSFlexGrid1.RemoveItem i
Exit For
End If
Next
End If
rs.MoveNext
Loop
rs.Close
where 子句语法错误If Combo1.Text = "在库图书" ThenCall Form_LoadCombo1.ListIndex = 1SQL = "select * from jhk where"rs.Open SQL,connDo While Not rs.EOFIf Not IsDate(rs!HSRQ) ThenBmh$ = rs!BmhFor i = 1 To MSFlexGrid1.Rows - 1If Trim(MSFlexGri
错误在哪里?