标题：偶尔出现的奇怪错误
项目中有个数据录入按钮，这个按钮中的事件没有任何问题，也一直是可以正常运行的，但如果离开一会（比如十几分钟），再回来单击这个按钮，就会出现这个错误：
此主题相关图片如下：11.jpg
这个问题，我这里有台机器经常出现，但其它的机器按同样的操作，无论怎么离开都正常。太奇怪了。。
MessageBox.Show("设置不完整,系统无法进入数据录入维护状态! ","警告",MessageBoxButtons.OK,MessageBoxIcon.Warning)
ElseIf Functions.Execute("Date",e.Form.Controls("DateTimePicker1").Value) = "Yes" Then '如果在软件的许可日期内
Dim d as Date = e.Form.Controls("DateTimePicker1").Value
Vars("Media") = e.Form.Controls("ComboBox2").Value '媒体名称
e.Form.Controls("Label3").Text = "【" & d & "(" & e.Form.Controls("TextBox1").Value & "), " & Vars("Dq") & "-" & Vars("Media") & "】"
Vars("Filter") = "区域='" & Vars("Dq") & "' and 媒体名称='" & Vars("Media") & "'" '条件
'得到媒体代码和异型比例
Dim sql As String = "Select top 1 * from 采集_媒体列表 where " & Vars("Filter")
Dim dt as DataTable = Functions.Execute("Data",sql)
If dt.DataRows.Count = 0 Then
MessageBox.Show("在系统设置中没有找到指定区域的对应媒体名称! ","警告",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Return
Else
Vars("Mdc") = dt.datarows(0)("媒体代码")
Vars("Jgxs") = dt.datarows(0)("异型加收")
End If
'得到价格体系
sql = "Select top 1 * from 采集_价格体系 where " & Vars("Filter") & " and 起<='" & d & "' and 止>='" & d & "'"
dt = Functions.Execute("Data",sql)
If dt.DataRows.Count = 0 Then
MessageBox.Show("系统没有找到指定日期所对应的广告价格体系! ","警告",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Return
Else
Vars("Price") = dt.datarows(0)("价格体系")
End If
'生成广告类型列表
sql = "Select distinct 广告类型 from 采集_广告类型 where " & Vars("Filter")
Functions.Execute("Query",sql,"广告类型")
'加载数据
e.Form.Controls("SplitContainer2").Visible = True
StatusBar.Message2 = "正在加载数据, 请稍候...".PadLeft(30)
Application.DoEvents
DataTables("主窗口_Table2").LoadFilter = "日期='" & d & "' and " & Vars("Filter")
DataTables("主窗口_Table2").Load
With Tables("_录入")
.Cols("广告类型").ComboList = Vars("List") '改变设置广告类型列表
.DataTable.LoadFilter = "日期='" & d & "' and " & Vars("Filter") & " and " & Vars("Mtqx") & " and " & Vars("Hyqx") & " and " & Vars("Bmqx")
.DataTable.Load
.Filter = ""
.AddNew() '增加行
.OpenView("录入")
.Select(.Current.Index,.Cols("版面叠次").Index) '将焦点移到table的当前行\第一列上
.Focus '将焦点移到table上
End With
StatusBar.Reset
e.Form.Controls("NavBar1").NavPages(0).Enabled = False
End If
dt = Functions.Execute("Data",sql)
If dt.DataRows.Count = 0 Then
改为：
dt = Functions.Execute("Data",sql)
if dt Is Nothing Then
messagebox.show("有错误")
End If
If dt.DataRows.Count = 0 Then
另清除Catch看看
dt.DataRows.Count = 0 和 dt Is Nothing 应该没什么区别吧？
生成datatable的sql语句肯定是没问题的，所以问题应该不在这里。
如果dt is nothing，那么dt.datarows.count = 0，就会出错，两者完全不同的，前者是没有表，后者是有表，但是是一个空表。
如果dt is nothing，那么dt.datarows.count = 0，就会出错，两者完全不同的，前者是没有表，后者是有表，但是是一个空表。
问题不在这里，请看5楼编辑后的回复。
今天想再重复昨天的错误，却又怎么都不出现了，即使离开一个小时再单击此按钮也正常。
今天想再重复昨天的错误，却又怎么都不出现了，即使离开一个小时再单击此按钮也正常。
老大, 电脑是偶尔搭错脑筋了,哈哈!
问题不在这里，请看5楼编辑后的回复。
今天想再重复昨天的错误，却又怎么都不出现了，即使离开一个小时再单击此按钮也正常。
我常碰到这样的问题， 也许老大说的对，有些时候必须要按 foxtable 的规则吧····