以下代码放在控件TextBoxcxnr的TextChanged事件中
此主题相关图片如下：er2er2.gif
此主题相关图片如下：erererer.gif
Dim txt_Name As String = e.form.Controls("TextBoxcxnr").Text
Dim py_txt_Name As String = getpy(txt_Name,True)
Tables("Test_Table1").Fill( " S elect [物料名称],[规格],[颜色] From {入库明细} where 物料名称 = '" & txt_Name & "'" , True)
If Tables("Test_Table1").Current Is Nothing Then
Tables("Test_Table1").Fill( " S elect [物料名称],[规格],[颜色] From {入库明细} where 物料名称拼音 like '%" & py_txt_Name & "%'" , True)
End If
报错：“select 语句执行错误,请检查语法及数据源设置”
但是，把 if ...... End if （浅红色部分）这段代码注释掉后，执行不会报错。本意是 这段代码是执行拼音首字母模糊查询的
请问这段代码报错，是什么地方有问题！
[此贴子已经被作者于2015/9/15 18:47:57编辑过]
加好友 
发短信
Post By：2015/9/14 21:36:00 [显示全部帖子]
