- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101417)
-- 发布时间：2017/5/31 7:12:00
-- 求助
此主题相关图片如下：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
Next
Next
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)("科目名称")
Next
Next
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.BuildTree("总账", "科目名称|账户性质|账户名称")
tr.Nodes.Insert("加载所有数据",0)
[此贴子已经被作者于2017/5/31 9:15:07编辑过]
-- 发布时间：2017/5/31 7:59:00
--
不知所云，啥意思，表达清楚啊。图都堆在一起，还要别人猜。
-- 发布时间：2017/5/31 8:47:00
--
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
-- 发布时间：2017/5/31 9:17:00
--
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
Next
Next
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)("科目名称")
Next
Next
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.BuildTree("总账", "科目名称|账户性质|账户名称")
tr.Nodes.Insert("加载所有数据",0)
-- 发布时间：2017/5/31 10:42:00
--
没看到你4楼的意思，如果还有问题，做个简单的实例上传上来说明。
-- 发布时间：2017/6/1 17:15:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目8.table |
请帮我看看！！
-- 发布时间：2017/6/1 17:24:00
--
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