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
...
...
甜甜老师，帮忙看一下， 谢谢
加好友 
发短信
Post By：2018/10/22 11:28:00 [只看该作者]
