- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 多表生成目录树 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67438)
-- 发布时间：2015/4/24 10:19:00
-- 多表生成目录树
各位老师，请问我想实现以下功能，怎么办？
此主题相关图片如下：截图2.png
此主题相关图片如下：截图3.png
此主题相关图片如下：截图1.png
-- 发布时间：2015/4/24 10:24:00
--
-- 发布时间：2015/4/24 10:28:00
--
你要显示文字，就用文字列生成目录树，不要用编号列，反正最后可以获取任何列的内容：
-- 发布时间：2015/4/24 10:49:00
--
关键问题在于“文字列”在另一张表上
-- 发布时间：2015/4/24 10:50:00
--
呵呵,不是问题. 2 3楼都看一下
-- 发布时间：2015/4/24 10:52:00
--
如果这个表是用查询表或select语句生成的，你可考虑将文字列包括进来，这样就方便很多
-- 发布时间：2015/4/24 11:12:00
--
bin老师，我的能力现在不能达到那个层次，其实这个问题， 是我自己搞复杂了，因为的物料编码是根据物料种类编号自动生成的，比如 bzw -001,所以表就变成了截图1的表，生成目录树也就遇到现在的问题了
Select e.DataCol.Name
Case
"类别"
If
e.DataRow.IsNull("类别")
Then
e.DataRow("编号") = Nothing
Else
Dim lb
As
String = e.DataRow("类别")
If e.DataRow("编号").StartsWith(lb) = False
\'如果单据编号前缀不符
Dim max As
String
Dim idx As
Integer
max = e.DataTable.Compute("Max(编号)","类别 =
\'" & lb &
"\' And
[_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号
If max > ""
Then
\'如果存在最大编号
idx =
CInt(max.Substring(2,3)) + 1
\'获得最大编号的后三位顺序号,并加1
Else
idx = 1
\'否则顺序号等于1
End
If
e.DataRow("编号") = lb & Format(idx,"000")
End
If
End
If
End
Select
-- 发布时间：2015/4/24 11:12:00
--
看2楼.
-- 发布时间：2015/4/24 11:18:00
--
-- 发布时间：2015/4/24 11:30:00
--