主题：[求助]定时加载数据

在【计划管理】中写了以下命令；执行后提示很多错误

 
此主题相关图片如下：360截图20170210093425778.jpg

msgbox(1)
If User.Group = "管控预约分组"  Then
DataTables("装机工单表").LoadFIlter = "管控预约分组 = '" & User.Roles & "'  And ( 工单状态 <> '营销退单' or 工单状态 <> '归档' ) "
DataTables("装机工单表").Load
Else
If User.Group = "管控专家分组"  Then
DataTables("装机工单表").LoadFIlter = "管控专家分组 = '" & User.Roles & "'  And ( 工单状态 <> '营销退单' or 工单状态 <> '归档' ) "
DataTables("装机工单表").Load
Else
If User.Group = "内线盯控分组"  Then
DataTables("装机工单表").LoadFIlter = "内线盯控分组 = '" & User.Roles & "'  And ( 工单状态 <> '营销退单' or 工单状态 <> '归档' ) "
DataTables("装机工单表").Load
Else
If User.Group = "内线专家分组"  Then
DataTables("装机工单表").LoadFIlter = "内线专家分组 = '" & User.Roles & "'  And ( 工单状态 <> '营销退单' or 工单状态 <> '归档' ) "
DataTables("装机工单表").Load
Else
If User.Group = "内线卡单分组"  Then
DataTables("装机工单表").LoadFIlter = "内线卡单分组 = '" & User.Roles & "'  And ( 工单状态 <> '营销退单' or 工单状态 <> '归档' ) "
DataTables("装机工单表").Load
Else
If User.Group = "内线归档分组"  Then
DataTables("装机工单表").LoadFIlter = "内线归档分组 = '" & User.Roles & "'  And ( 工单状态 <> '营销退单' or ( 工单状态 = '归档' and 工单当前状态 <> '工单完成' ) ) "
DataTables("装机工单表").Load
Else
DataTables("装机工单表").LoadFIlter = "( 工单状态 = '服务开通中' Or ( 工单状态 = '归档' and  复开完成结单 = '未完成结单' )) "
DataTables("装机工单表").Load
End If
End If
End If
End If
End If
End If

msgbox(2)
Tables("装机工单表").Sort = "派单日期"

Dim dt As DataTable = DataTables("装机工单表")
Dim trv As WinForm.TreeView = Forms("装机工单表主窗口").Controls("TreeView2")
trv.BuildTree(dt, "全部数据|区域名称|网格名称|工单状态|工单当前状态|当前环节")
'trv1.BuildTree(dt1, "分公司类别|分公司","","编号")
'trv.Nodes.Insert("宽带割接回访表",0)
trv.StopRedraw '停止绘制目录树

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
   
    If nd.Level = 0 Then '如果是二级节点
        nd.Text = "全部数据"
    End If
    If nd.Level = 1 Then '如果是二级节点
        nd.Text = nd.Text '& "【"& dt.Compute("Count()", " 数据日期 =  '" & nd.DataRow("数据日期") & "'  ") & "】"
    End If   
    If nd.Level = 2 Then '如果是二级节点
        nd.Text = nd.Text
    End If
    If nd.Level = 3 Then '如果是二级节点
        nd.Text = nd.Text
    End If
    If nd.Level = 4 Then '如果是二级节点
        nd.Text = nd.Text
    End If
    If nd.Level = 5 Then '如果是二级节点
        nd.Text = nd.Text
    End If
   
Next
trv.ResumeRedraw '恢复绘制目录树

msgbox(3)
DataTables("五级地址网格关联表").LoadFIlter = ""
DataTables("五级地址网格关联表").Load

DataTables("网格人员清单表").LoadFIlter = ""
DataTables("网格人员清单表").Load

DataTables("装维人员清单表").LoadFIlter = ""
DataTables("装维人员清单表").Load

1、拷贝代码出来到命令窗口运行；

2、这句代码去掉试试

nd.Text = nd.Text '& "【"& dt.Compute("Count()", " 数据日期 =  '" & nd.DataRow("数据日期") & "'  ") & "】"

这个命令其实只是：nd.Text = nd.Text  ；后面部分是没有的。

 检查各个表的currentChanged事件，把事件代码去掉测试。