主题：[求助] 项目打不开

在 TreeView1的 NodeMouseDoubleClick 中写有如下命令，提示错误；我的命令该怎么修改？

 

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "宽带割接回访表" Then
   
    Select Case e.Node.Level
        Case 0
           

            If e.DataCol.Group = "管理员"  Then
                Filter = "[工单责任人] = '" & dr("工单责任人") & "'"
            Else
                If e.DataCol.Name = dr("工单责任人")   Then
                    Filter = "[工单责任人] = '" & dr("工单责任人") & "'"
                Else
             MessageBox.show("你没有处理其他【工单责任人】的工单权限!", "提醒")
                End If

End Select

End If

 

 

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

  If User.Group = "管理员"  Then

 

  If User.Name = dr("工单责任人")   Then

 

 

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

 

 

Dim dt As DataTable = DataTables("宽带帐号割接回访表")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "工单责任人|最终处理结果|预约处理_时间")
trv.Nodes.Insert("宽带割接回访表",0)
trv.StopRedraw '停止绘制目录树
trv.ResumeRedraw '恢复绘制目录树

 

 

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "数据源"
cmd.CommandText = "Select 工单责任人,最终处理结果, (Year(预约处理_时间) + '-' + Month(预约处理_时间) + '-' + day(预约处理_时间)) as 预约处理_时间 Fr om {宽带帐号割接回访表}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "工单责任人|最终处理结果|预约处理_时间")
trv.Nodes.Insert("宽带割接回访表",0)

想实现截图的效果，我的命令该怎么修改？

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

 

Dim dt As DataTable = DataTables("宽带帐号割接回访表")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "工单责任人|员工统计|最终处理结果|预约处理日期")

trv.Nodes.Insert("宽带割接回访表"& vbcrlf &"(总数/待回访/预约上门/割接完成)",0)
trv.StopRedraw '停止绘制目录树

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
    If nd.Level = 1 Then '如果是二级节点
        nd.Text =  nd.Text & "(统计:"& dt.Compute("Count(最终处理结果)","工单责任人 = '" & nd.DataRow("工单责任人") & "' And  最终处理结果 <> '' ") & "/" & dt.Compute("Count(最终处理结果)", "工单责任人 = '" & nd.DataRow("工单责任人") & "' And  最终处理结果 = '待回访' ")  & "/" &  dt.Compute("Count(最终处理结果)","工单责任人 = '" & nd.DataRow("工单责任人") & "' And  最终处理结果 = '预约上门' ") & "/" & dt.Compute("Count(最终处理结果)", "工单责任人 = '" & nd.DataRow("工单责任人") & "' And  最终处理结果 = '割接完成' ")& ")"  

    End If
Next

trv.ResumeRedraw '恢复绘制目录树

看了一下，不行，如果要做，必须重画，像这样

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=44083&skin=0

 

 

写有以下命令，打开窗口的时候提示错误。

 

Dim dt As DataTable = DataTables("宽带帐号割接回访表")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "工单责任人|最终处理结果|预约处理日期")
trv.Nodes.Insert("宽带割接回访表",0)
trv.StopRedraw '停止绘制目录树

 

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
  If nd.Level = 0 Then '如果是二级节点
    nd.Text =  nd.Text & "("& dt.Compute("Count(最终处理结果)","工单责任人 = '" & nd.DataRow("工单责任人") & "' And  最终处理结果 <> '' ") & ")"
End If
Next
For Each nd1 As WinForm.TreeNode In trv.AllNodes '遍历所有节点
    If nd1.Level = 1 Then '如果是二级节点
        nd1.Text =  nd1.Text & "("& dt.Compute("Count(最终处理结果)", "工单责任人 = '" & nd1.DataRow("工单责任人") & "' And  最终处理结果 =  '" & nd1.DataRow("最终处理结果") & "' ") & ")"
    End If
Next

trv.ResumeRedraw '恢复绘制目录树

 

 

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

这段代码是不应该报错的。你加入msgbox，看看哪句代码开始报错。

 

一般可能是你 AfterSelectNode 有问题。

以下命令是想实现删除符合条件的行，但是执行后只删除了符合条件的其中第一行；我的命令该怎么修改？

（即如果有3条符合条件内容，执行命令后只删除了这3条中的第1条）

 

Dim t As Table = Forms("全省数据主窗口").Controls("Table4").Table
Dim ndr As DataRow = DataTables("机房设备清单表").Find("设备厂家 = '" &  t.Current("设备厂家")  & "' and  设备型号 = '" & t.Current("设备型号") & "'")

If ndr IsNot Nothing Then

ndr.Delete()