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

 
此主题相关图片如下：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事件，把事件代码去掉测试。