Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口表不能实现查询功能


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

主题：[求助]窗口表不能实现查询功能
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/17 11:23:00 [显示全部帖子]

Forms("缴费户卡").Open
Dim dr1 As DataRow = DataTables("T246").Find("[F4411] Is Not Null", "F4411", 0)
Dim dr2 As DataRow = DataTables("T246").Find("[F4411] Is Not Null", "F4411 Desc",0)
If dr1 Is Nothing OrElse dr2 Is Nothing Then Return
......其它代码

回4楼，是的
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/17 11:49:00 [显示全部帖子]

3楼原来的其它代码

Forms("缴费户卡").Open
Dim dr1 As DataRow = DataTables("T246").Find("[F4411] Is Not Null", "F4411", 0)
Dim dr2 As DataRow = DataTables("T246").Find("[F4411] Is Not Null", "F4411 Desc",0)
If dr1 Is Nothing OrElse dr2 Is Nothing Then Return

Dim d1 As Date
Dim d2 As Date
Dim drl0 As DataRow
Dim dt1 As Date =dr1("F4411")
Dim dt2 As Date =dr2("F4411")
......
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/17 12:05:00 [显示全部帖子]

http://www.foxtable.com/webhelp/scr/0396.htm

一旦订单表并不存在订购数量超过1000的订单，那么Find方法返回Nothing，导致后续代码运行出错。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/17 14:22:00 [显示全部帖子]

msgbox(filter)看看实际的条件

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/22 14:40:00 [显示全部帖子]

自己看最后一个messagebox.show(filter1)弹出的内容就知道什么问题了

......
With e.Form.Controls("TextBox5")
    If .Value IsNot Nothing Then
        If filter1 >"" Then
            filter1 = filter1 & " And "
        End If
        filter1 = filter1 & "[F4384]Like '%" & .Value & "%'"
    End If
End With

If filter > "" Then
    If filter1 > "" Then
        filter1 = filter1 & " and"
    End If
    filter = "( " & filter & " ) "
End If
filter1 = filter1 & filter
messagebox.show(filter1)

Dim dt As DataTable = Forms("缴费户卡").Controls("Table1").Table.DataTable
dt.LoadFilter = filter1
dt.LoadTop = 20
dt.LoadPage = 0
dt.Load
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 5 次数据查询