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

 

 我想实现当前行被修改后、未保存数据的情况下不允许换行。

 

在表的BeforeSelChange中写有以下命令会造成项目打不开

 

If e.Table.current IsNot Nothing Then
    If  e.Table.current.DataRow.RowState <> DataRowState.Unchanged Then
        If e.NewRange.RowSel <> e.OldRange.RowSel Then
            e.Cancel=True
            MessageBox.Show("当前行数据已被修改 请先保存数据再换行", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
            e.Cancel=True
           
        End If
    End If
'End If

 

 

如果写以下命令会造成选择当前行的其他单元格时也会弹出提示

 

If CurrentTable.DataTable.HasChanges =True  Then  '如果 区域表 被修改 然后
 e.Cancel = True
MessageBox.Show("本表已被修改,请先保存数据!", "提示", MessageBoxButtons.OK)
e.Cancel = True
End If

 

我的命令该怎么写？

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:宽带帐号割接回访系统 - 副本.foxdb

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

在 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

 

 

此主题相关图片如下：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 '恢复绘制目录树

 

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

 
此主题相关图片如下：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 '恢复绘制目录树

 

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

 

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

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

（即如果有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()

我有一个【宽带帐号割接回访主窗口】；这个窗口中有表【Table1】【Table2】，其中【Table2】和【Table1】是同一个表；【Table2】设置为【副本】。

 

我在表的DoubleClick中写有以下命令；想实现当我双击【Table1】或【Table2】时，能够实现不同操作。我的命令该怎么修改？

 

If Forms("宽带帐号割接回访主窗口").Opened Then
   
    If Forms("宽带帐号割接回访主窗口").Controls("Table1") Then
       
        If User.Group <> "管理员" And  User.Group <> "公司领导"  Then
            Dim p1 As object = Forms("宽带帐号割接回访主窗口").Controls("Panel4")
            p1.Visible = True
            Forms("宽带帐号割接回访主窗口").Controls("Panel3").Width=Forms("宽带帐号割接回访主窗口").Controls("Panel2").Width-Forms("宽带帐号割接回访主窗口").Controls("Panel4").Width
        End If
    End If
   
Else
   
    If Forms("宽带帐号割接回访主窗口").Controls("Table2").Opened Then
       
        If User.Group <> "管理员" And  User.Group <> "公司领导"  Then
            Dim p1 As object = Forms("宽带帐号割接回访主窗口").Controls("Panel8")
            p1.Visible = True
            Forms("宽带帐号割接回访主窗口").Controls("Panel7").Width=Forms("宽带帐号割接回访主窗口").Controls("Panel6").Width-Forms("宽带帐号割接回访主窗口").Controls("Panel8").Width
        Else
        End If
    End If
End If