以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  求助呀，第一课程到最后一步完成不了，指教下  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25799)

--  作者：123kingwei --  发布时间：2012/11/17 8:28:00 --  求助呀，第一课程到最后一步完成不了，指教下  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目5.rar 做到最后一步了，为什么就查询不了，请高手指教下原因，谢谢！

--  作者：lin_hailun --  发布时间：2012/11/17 8:46:00 --    查询按钮的代码换成 Dim cj As WinForm.ComboBox = e.Form.Controls("客户") Dim wlmc As WinForm.ComboBox = e.Form.Controls("型号规格") Dim wlbh As WinForm.TextBox = e.Form.Controls("产品配置") Dim xhgg As WinForm.TextBox = e.Form.Controls("单价") Dim filter As String = "1=1" If cj.Text <> "" Then filter = filter & " And 客户名称 = \'" & cj.Text & "\'" If wlmc.Text <> "" Then filter = filter & " And 型号规格 = \'" & wlmc.Text & "\'" If wlbh.Text <> "" Then filter = filter & " And 产品配置 like \'*" & wlbh.Text & "*\'" If xhgg.Text <> "" Then filter = filter & " And 单价 = " & xhgg.Text Tables("客户单价表").Filter = filter

--  作者：123kingwei --  发布时间：2012/11/17 9:31:00 --   感谢，可以了，