现在不是全部电脑出现的这个问题，只有部分电脑出现这个问题。
Dim now As Date = Functions.Execute("服务器时间")
Dim Filter As String
Filter = "订单日期 = '" & Format(now,"d") & "'"
If _usergroup = "销售" Then
DataTables("订单").LoadFilter = Filter & "and 销售 = '" & _username & "'"
DataTables("订单").Load()
End If
If _usergroup = "主管" Then
DataTables("订单").LoadFilter = Filter & "and 主管 = '" & _username & "'"
DataTables("订单").Load()
End If
If _usergroup = "经理" Then
DataTables("订单").LoadFilter = Filter & "and 经理 = '" & _username & "'"
DataTables("订单").Load()
End If
Dim cmd As New SQLCommand
Dim dt As Date
cmd.
C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
Return dt
'引用方法
Dim now As Date = Functions.Execute("服务器时间")
[此贴子已经被作者于2015/12/23 19:57:15编辑过]
加好友 
发短信
Post By：2015/12/23 18:59:00 [显示全部帖子]
此主题相关图片如下：qq图片20151223185348.png