Foxtable(狐表) → 用户栏目 → 专家坐堂 → 执行时出现一个错误


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

主题：执行时出现一个错误
帅哥哟，离线，有人找我吗？
cyrollin
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		执行时出现一个错误  发帖心情 Post By：2018/10/22 11:28:00 [只看该作者]

With Tables("表A")
    Dim f As String = "[日期] = #" & Date.Today().AddDays(1) & "#"
   Dim dr As List(of DataRow) = DataTables("表A").SQLselect(f)
    If dr IsNot Nothing Then
        .Filter = f
    Tables("表A").Sort = "日期"
    Else  ‘ 代码不能往下执行了，出现详细错误信息：未将对象引用设置到对象的实例。
        Dim Result As DialogResult
        Result = MessageBox.Show("明天还没有数据,是否需要添加", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
        ...
        ...


甜甜老师，帮忙看一下， 谢谢 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/10/22 11:32:00 [只看该作者]

改成

 

With Tables("表A")
    Dim f As String = "[日期] = #" & Date.Today().AddDays(1) & "#"
   Dim dr As DataRow = DataTables("表A").sqlFind(f)
    If dr IsNot Nothing Then
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/10/22 11:33:00 [只看该作者]

如果2楼代码还报错，就是你currentChanged事件有问题了。

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


加好友 发短信
等级：四尾狐 帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2018/10/22 11:36:00 [只看该作者]

2楼出现问题是不可能的， 这辈子是不可能出现的， 谢谢甜甜图片点击可在新窗口打开查看

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 4 次数据查询