Foxtable(狐表)用户栏目专家坐堂 → 我希望在输入窗口绑定的表 中只显示未发货的行,我该如何编写代码?


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

主题:我希望在输入窗口绑定的表 中只显示未发货的行,我该如何编写代码?

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/6/5 15:22:00 [显示全部帖子]

2、将TextBox1的TextChanged事件代码设为:

Dim txt As String = e.Form.Controls("TextBox1").Text

Dim tbl As Table = Tables("窗口3_Table1")

If txt = "" Then

    tbl.Filter = "发货 = False Or 发货 Is NULL"

Else

    txt = "'*" & txt & "*'"

    tbl.Filter = "订单号 Like " & txt & " Or 产品号 Like " & txt & " Or 产品名称 Like " & txt & " Or 规格尺寸 Like " & txt  & " And (发货 = False Or 发货 Is NULL)"

End If


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/6/5 17:55:00 [显示全部帖子]

2、将TextBox1的TextChanged事件代码设为:

Dim txt As String = e.Form.Controls("TextBox1").Text

Dim tbl As Table = Tables("窗口3_Table1")

If txt = "" Then

    tbl.Filter = "发货 = False  Or 发货 Is Null "

Else

    txt = "'*" & txt & "*'"

    tbl.Filter = "(订单号 Like " & txt & " Or 产品号 Like " & txt & " Or 产品名称 Like " & txt & " Or 规格尺寸 Like " & txt  & ") And (发货 = False Or 发货 Is Null )"

End If


 回到顶部