- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 执行时出现一个错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126450)
-- 发布时间：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
...
...
甜甜老师，帮忙看一下， 谢谢
-- 发布时间：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
-- 发布时间：2018/10/22 11:33:00
--
如果2楼代码还报错，就是你currentChanged事件有问题了。
-- 发布时间：2018/10/22 11:36:00
--
2楼出现问题是不可能的， 这辈子是不可能出现的， 谢谢甜甜
