以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]帮忙解决一下错误,整形的查询  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=37887)

--  作者:wuxianzuoji41
--  发布时间:2013/7/14 11:02:00
--  [求助]帮忙解决一下错误,整形的查询

Dim cbo_Dailimingcheng As winform.ComboBox= e.Form.Controls("cboDailimingcheng")

Tables("代理_Table1").filter ="[guanlian_daili] =" & cbo_Dailimingcheng.text

注:guanlian_daili]为整型字段

提示错误 语法错误:“=”运算符后缺少操作数。


--  作者:lsy
--  发布时间:2013/7/14 11:06:00
--  
上例子,便于测试。
--  作者:temblar
--  发布时间:2013/7/14 11:09:00
--  

Tables("代理_Table1").filter ="[guanlian_daili] =" & cbo_Dailimingcheng.text

 

改为

 

Tables("代理_Table1").filter ="[guanlian_daili] = " & cint(cbo_Dailimingcheng.text)

 

Tables("代理_Table1").filter ="[guanlian_daili] = " & val(cbo_Dailimingcheng.text)

 

试试看

[此贴子已经被作者于2013-7-14 11:15:06编辑过]

--  作者:狐狸爸爸
--  发布时间:2013/7/15 9:00:00
--  

如果没有输入值,会提示错误,所以要判断一下:

 

 

Dim cbo_Dailimingcheng As winform.ComboBox= e.Form.Controls("cboDailimingcheng")

if  cbo_Dailimingcheng IsNot Nothing Then
   Tables("代理_Table1").filter ="[guanlian_daili] =" & cbo_Dailimingcheng.Value

End If