求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：1233.png

请教高手，根据图一，图二，是用来生成图四的表格的取值列表项目，而且取值的去不都是都是表名。

DataTables("总账").StopRedraw

DataTables("总账").DataRows.Clear

For Each r As Row In Tables("项目").Rows

For Each r0 As String In r("列表项目").split((vblf))

Dim r1 As Row = Tables("总账").AddNew

r1("科目名称") = r("值")

r1("账户性质") = r0

DataTables("总账").ResumeRedraw

For i As Integer =Tables("总账").Rows.Count -1 To 0 Step -1

For Each r As Row In Tables(Tables("总账").Rows(i)("账户性质").trim("",split(vblf)))，这个地方不知道怎么写！！

Dim r0 As Row = Tables("总账").AddNew

r0("账户名称") = r("账户名称")

r0("账户余额") = r("账户余额")

r0("账户性质") = Tables("总账").Rows(i)("账户性质")

r0("科目名称") = Tables("总账").Rows(i)("科目名称")

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

tr.BuildTree("总账", "科目名称|账户性质|账户名称")

tr.Nodes.Insert("加载所有数据",0)

[此贴子已经被作者于2017/5/31 9:15:07编辑过]

不知所云，啥意思，表达清楚啊。图都堆在一起，还要别人猜。

Dim dt As DataTable = DataTables("表A")
Dim dt_d As DataTable = DataTables("表B")
For Each dr As DataRow In dt.Select("第一列 is not null")
    For Each s As String In dr.Lines("第二列")
        Dim ndr As DataRow = dt_d.AddNew
        ndr("第一列") = dr("第一列")
        ndr("第二列") = s
    Next
Next

DataTables("总账").StopRedraw

DataTables("总账").DataRows.Clear

For Each r As Row In Tables("项目").Rows

For Each r0 As String In r("列表项目").split((vblf))

Dim r1 As Row = Tables("总账").AddNew

r1("科目名称") = r("值")

r1("账户性质") = r0

DataTables("总账").ResumeRedraw

For i As Integer =Tables("总账").Rows.Count -1 To 0 Step -1

For Each r As Row In Tables(Tables("总账").Rows(i)("账户性质").trim("",split(vblf)))

Dim r0 As Row = Tables("总账").AddNew

r0("账户名称") = r("账户名称")

r0("账户余额") = r("账户余额")

r0("账户性质") = Tables("总账").Rows(i)("账户性质")

r0("科目名称") = Tables("总账").Rows(i)("科目名称")

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

tr.BuildTree("总账", "科目名称|账户性质|账户名称")

tr.Nodes.Insert("加载所有数据",0)

没看到你4楼的意思，如果还有问题，做个简单的实例上传上来说明。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目8.table

请帮我看看！！

DataTables("总账").ResumeRedraw
DataTables("总账").StopRedraw
DataTables("总账").DataRows.Clear
For Each r As Row In Tables("项目").Rows
    For Each s As String In r.DataRow.lines("账户性质")
        For Each cr As Row In Tables(s).Rows
            Dim nr As Row = Tables("总账").AddNew
            nr("科目大类") = r("科目大类")
            nr("账户性质") = s
            nr("账户名称") = cr("账户名称")
            nr("账户余额") = cr("账户余额")
        Next
    Next
Next
DataTables("总账").ResumeRedraw

主题：求助