以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  编译错误:应为语句结束,大大们指导下  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95679)

--  作者:放飞
--  发布时间:2017/1/30 11:43:00
--  编译错误:应为语句结束,大大们指导下
Dim cx As WinForm.ComboBox = e.Form.Controls("车系")
Dim ph As WinForm.ComboBox = e.Form.Controls("编号")
Dim xg As WinForm.TextBox = e.Form.Controls("型号")
Dim ydo As WinForm.TextBox = e.Form.Controls("库存数")
Tables("外框信息表").Filter =" 车系 = \'" & cx.Text & " \'and 编号= \'"ph.Text &"\'and 型号 like\'*" & xg.Text & "* \'and 库存数 like \'*" & ydo. Text & "*\'"


--  作者:lxy060669
--  发布时间:2017/1/30 23:47:00
--  
Tables("外框信息表").Filter =" 车系 = \'" & cx.Text & " \'and 编号= \'"ph.Text &"\'and 型号 like\'*" & xg.Text & "* \'and 库存数 like \'*" & ydo. Text & "*\'"
Tables("外框信息表").Filter =" 车系 = \'" & cx.Text & " \'and 编号= \'" & ph.Text & "\' and 型号 like \'*" & xg.Text & "* \'and 库存数 like \'*" & ydo. Text & "*\'"

--  作者:放飞
--  发布时间:2017/1/31 10:47:00
--  
谢谢指导