- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何利用目录树录入数据 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108045)
-- 发布时间：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
如果有问题，上传实例测试，具体说明要做的效果。
-- 发布时间：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
-- 发布时间：2017/10/15 20:24:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树1015 (1).foxdb |
-- 发布时间：2017/10/15 20:58:00
--
1、看AfterLoad事件的代码。