以文本方式查看主题 - 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 -- 谢谢指导 |