Foxtable(狐表)用户栏目专家坐堂 → 求助呀,第一课程到最后一步完成不了,指教下


  共有8556人关注过本帖树形打印复制链接

主题:求助呀,第一课程到最后一步完成不了,指教下

帅哥哟,离线,有人找我吗?
lin_hailun
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By: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

 回到顶部