这两天在进行系统额编写,发现了一个问题,
同样的代码 有些在目录树不执行,在按钮可以执行,有些在命令窗口不执行,在按钮且执行. 比如这样的加载代码.
Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "日期 >= '" & dt1 & "' And 日期 <= '" & dt2 & "'"
Tables("生产完成情况日报_Table1").Fill("Select * from{十监区管理} Where 部门='" & _UserGroup & "' And " & Filter ,"服务器",False)
在命令窗口和按钮都可以执行,但是在窗口切怎么也不执行. 我用load 也是一样的情况下.
直接表名写入到是可以的