Foxtable(狐表)用户栏目专家坐堂 → 如何利用目录树录入数据


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

主题:如何利用目录树录入数据

帅哥哟,离线,有人找我吗?
ZJZK2015
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:810 积分:7727 威望:0 精华:0 注册:2014/7/4 20:32:00
如何利用目录树录入数据  发帖心情 Post By:2017/10/14 22:29:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/15 14:53:00 [只看该作者]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked AndAlso nd.Level = 3 Then
        Dim Vals() As String = nd.FullPath.Split("\")
        Dim Filter As String = "[工程名称] = '" & Vals(0) & "' And [标段名称] = '" & Vals(1) & "'"
        Dim dr As DataRow = DataTables("项目结构").Find(Filter)
        Dim r As Row = Tables("月报项目结构").addnew
        r("工程名称") = dr("工程名称")
        r("标段名称") = dr("标段名称")
        r("项目编号") = dr("项目编号")
        r("专业编号") = dr("专业编号")
        r("单位工程") = dr("单位工程")
        r("专业工程") = dr("专业工程")
    End If
Next

 

如果有问题,上传实例测试,具体说明要做的效果。


 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2015
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:810 积分:7727 威望:0 精华:0 注册:2014/7/4 20:32:00
  发帖心情 Post By:2017/10/15 16:36:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/15 16:49:00 [只看该作者]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        Dim Vals() As String = nd.FullPath.Split("\")
        Dim Filter As String
        If nd.level=0 Then
            filter = "[工程名称] = '" & Vals(0) & "'"
        ElseIf nd.Level=1 Then
            filter = "[工程名称] = '" & Vals(0) & "' And [标段名称] = '" & Vals(1) & "'"
        ElseIf nd.Level=2 Then
            filter = "[工程名称] = '" & Vals(0) & "' And [标段名称] = '" & Vals(1) & "' and 单位工程 = '" & vals(2) & "' "
        ElseIf nd.Level=3 Then
            filter = "[工程名称] = '" & Vals(0) & "' And [标段名称] = '" & Vals(1) & "' and 单位工程 = '" & vals(2) & "' and 专业工程 = '" & vals(3) & "'"
        End If
       
        Dim  dr As DataRow = DataTables("项目结构").find(Filter)
        Dim r As DataRow = Tables("月报项目结构_table1").DataTable.find(filter)
        If r Is Nothing Then r = Tables("月报项目结构_table1").DataTable.addnew
        r("工程名称") = dr("工程名称")
        r("标段名称") = dr("标段名称")
        r("项目编号") = dr("项目编号")
        r("专业编号") = dr("专业编号")
        r("单位工程") = dr("单位工程")
        r("专业工程") = dr("专业工程")
       
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2015
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:810 积分:7727 威望:0 精华:0 注册:2014/7/4 20:32:00
  发帖心情 Post By:2017/10/15 18:42:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/15 20:24:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:目录树1015 (1).foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2015
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:810 积分:7727 威望:0 精华:0 注册:2014/7/4 20:32:00
  发帖心情 Post By:2017/10/15 20:55:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/15 20:58:00 [只看该作者]

1、看AfterLoad事件的代码。


 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2015
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:810 积分:7727 威望:0 精华:0 注册:2014/7/4 20:32:00
  发帖心情 Post By:2017/10/15 21:06:00 [只看该作者]

用户已被锁定

 回到顶部