主题：偶尔出现的奇怪错误

请列出此按钮的代码

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 is nothing，那么dt.datarows.count = 0，就会出错，两者完全不同的，前者是没有表，后者是有表，但是是一个空表。