Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 项目打不开


  共有7114人关注过本帖树形打印复制链接

主题：[求助] 项目打不开
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/3/30 12:05:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：360截图20160330120632265.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：360截图20160330120745928.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/30 12:13:00 [只看该作者]

For Each r As Row In Tables("iTellin用户数据表").Rows
    Dim dr As DataRow = DataTables("BAS端口信息表").Find("BAS信息 + '|' + 外层VLAN  = '" & r("BAS信息") & "|" & r("外层VLAN") & "' ")
    If dr IsNot Nothing Then
        r("归属设备") = dr("归属设备")
    Else
        dr = DataTables("BAS端口信息表").Find("BAS信息'" & r("BAS信息") & "' ")
        If dr IsNot Nothing Then
            r("归属设备") = dr("归属设备")
        Else
            r("归属设备") = Nothing
        End If
    End If
Next

 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/4/1 11:59:00 [只看该作者]

有没有办法做到根据需要、控制不同的【节点】是否显示下一级【节点】？

 

 
此主题相关图片如下：360截图20160401115850369.jpg
按此在新窗口浏览图片

 

Dim dt As DataTable = DataTables("宽带帐号割接回访表")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
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 = "【统计:全部["& dt.Compute("Count(割接情况)"," 割接情况 <> '' ") & "] 已割接[" & dt.Compute("Count(割接情况)", " 割接情况 = '已割接' ") & "] 未割接[" & dt.Compute("Count(割接情况)", " 割接情况 = '未割接' ")  & "]】"  
End If
Next
For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
  If nd.Level = 1 Then '如果是二级节点
    nd.Text =  nd.Text & "【"& dt.Compute("Count(割接情况)","工单责任人 = '" & nd.DataRow("工单责任人") & "' And  回访_结果 <> '' ") & "】"
End If
Next
For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
    If nd.Level = 2 Then '如果是二级节点
        nd.Text = nd.Text & "【"& dt.Compute("Count(割接情况)", "工单责任人 = '" & nd.DataRow("工单责任人") & "' And  割接情况 =  '" & nd.DataRow("割接情况") & "' ") & "】"
    End If
Next
For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
    If nd.Level = 3 Then '如果是二级节点
        nd.Text =  "【"& dt.Compute("Count(割接情况)", "工单责任人 = '" & nd.DataRow("工单责任人") & "' And  割接情况 =  '" & nd.DataRow("割接情况") & "' And  回访_结果 =  '" & nd.DataRow("回访_结果") & "' ") & "】" & nd.Text
    End If
Next


trv.ResumeRedraw '恢复绘制目录树
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  54楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/1 12:04:00 [只看该作者]

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
    If nd.Level = 0 Then '如果是二级节点
        nd.Text = "【统计:全部["& dt.Compute("Count(割接情况)"," 割接情况 <> '' ") & "] 已割接[" & dt.Compute("Count(割接情况)", " 割接情况 = '已割接' ") & "] 未割接[" & dt.Compute("Count(割接情况)", " 割接情况 = '未割接' ")  & "]】"
    End If
    If nd.Level = 1 Then '如果是二级节点
        nd.Text =  nd.Text & "【"& dt.Compute("Count(割接情况)","工单责任人 = '" & nd.DataRow("工单责任人") & "' And  回访_结果 <> '' ") & "】"
    End If
    If nd.Level = 2 Then '如果是二级节点
        nd.Text = nd.Text & "【"& dt.Compute("Count(割接情况)", "工单责任人 = '" & nd.DataRow("工单责任人") & "' And  割接情况 =  '" & nd.DataRow("割接情况") & "' ") & "】"
    End If
    If nd.Level = 3 Then '如果是二级节点
        If nd.DataRow("割接情况") = "已割接" Then
            nd.delete
        Else
            nd.Text =  "【"& dt.Compute("Count(割接情况)", "工单责任人 = '" & nd.DataRow("工单责任人") & "' And  割接情况 =  '" & nd.DataRow("割接情况") & "' And  回访_结果 =  '" & nd.DataRow("回访_结果") & "' ") & "】" & nd.Text
        End If
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  55楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/4/1 15:40:00 [只看该作者]

如果是连【已割接】都不显示呢，该怎么改？

 

   If nd.Level = 3 Then '如果是二级节点
        If nd.DataRow("割接情况") = "已割接" Then
            nd.delete
        Else
            nd.Text =  "【"& dt.Compute("Count(割接情况)", "工单责任人 = '" & nd.DataRow("工单责任人") & "' And  割接情况 =  '" & nd.DataRow("割接情况") & "' And  回访_结果 =  '" & nd.DataRow("回访_结果") & "' ") & "】" & nd.Text
        End If
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  56楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/1 15:44:00 [只看该作者]

那你buildtree的时候，直接把不符合的去掉不就行了？

 

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree("订单", "产品|客户|雇员", "割接情况 <> '已割接' Or 割接情况 is null")

 
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  57楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/4/1 16:47:00 [只看该作者]

在逐步筛选到最后一条记录是提示错误；我该怎么处理？

 
图片点击可在新窗口打开查看此主题相关图片如下：360截图20160401163551507.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：360截图20160401163722689.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：360截图20160401163801190.jpg
图片点击可在新窗口打开查看

宽带帐号割接回访表_BeforeDeleteDataRow

 

vars("stop") = True

 

宽带帐号割接回访表_DataRowDeleted

 

vars("stop") = False

宽带帐号割接回访表_BeforeFilter

 

vars("stop") = True

 

宽带帐号割接回访表_AfterFilter

 

vars("stop") = False

 

宽带帐号割接回访表_BeforeSort

 

vars("stop") = True

 

宽带帐号割接回访表_AfterSort

 

vars("stop") = False

 

 

宽带帐号割接回访表_BeforeSelChange

 

If vars("stop") = False AndAlso e.OldRange.RowSel >= 0 Then

    Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行

   

    If r IsNot Nothing Then

        If  r.DataRow.RowState <> DataRowState.Unchanged Then

            If e.NewRange.RowSel <> e.OldRange.RowSel Then

                e.Cancel=True

                MessageBox.Show("当前行数据已被修改 请先保存数据再换行", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)

               

            End If

        End If

    End If

End If

[此贴子已经被作者于2016/4/1 16:47:23编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  58楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/1 17:01:00 [只看该作者]

If vars("stop") = False AndAlso e.OldRange.RowSel >= 0 AndAlso e.NewRange.RowSel >= 0 Then

 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  59楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/4/1 17:06:00 [只看该作者]

还是提示一样的错误；我的当前表是【副本】；有影响吗？

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  60楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/1 17:12:00 [只看该作者]

If e.Table.Rows.count > 0 AndAlso vars("stop") = False AndAlso e.OldRange.RowSel >= 0 AndAlso e.NewRange.RowSel >= 0 Then

 回到顶部
总数 83 上一页 1 2 3 4 5 6 7 8 9 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 4 次数据查询