-- 作者:小猪鑫鑫
-- 发布时间:2014/8/6 13:54:00
--
狐爸:这就是我的代码,里面是有两处用到这个DropTreeBuilder,但没感到有问题啊
\'自动更新系统
If Syscmd.Project.Update(False,False) =False
Forms("用户登录").Open() \'用户登录
MainTable =Tables("XR会议室使用表") \'启始届面
Forms("封面").show()
Vars("ljbl") =1 \'确定退出系统时要不要点击确定或否的变量
\'新末道麻条工艺及针纺检测系统
Dim gysz As new SQLCommand
Dim dtsz As DataTable
gysz.C
gysz.CommandText ="select * from {GY工艺纱支表}"
dtsz =gysz.ExecuteReader
Dim tbc As New DropTreeBuilder
tbc.SourceTable = dtsz \'指定目录树表
tbc.TreeCols = "品种|成品纱支|" \'指定用于生成目录树的列
tbc.SourceCols = "_Identify|成品纱支|上机纱支|上机纱支范围" \'指定数据来源列
tbc.ReceiveCols = "纱支ID|成品纱支|上机纱支|纱支范围" \'指定数据接收列
Tables("ZL质量信息表.GY工艺上机表").Cols("纱支ID").DropTree = tbc.Build()
Dim g As new SQLCommand
Dim dt As DataTable
g.C
g.CommandText ="select * from {wl物料编码表} where 使用状态 =\'在用\'"
dt =g.ExecuteReader
Dim tb As New DropTreeBuilder
tb.SourceTable = dt \'指定目录树表
tb.TreeCols = "一级码|二级码|三级码|四级码" \'指定用于生成目录树的列
tb.SourceCols = "代码|名称|单位|实际库存" \'指定数据来源列
tb.ReceiveCols = "物料编码|品名|单位|现有库存" \'指定数据接收列
tb.TreeWidth =300
Tables("wl请购单.wl请购明细表").Cols("物料编码").DropTree = tb.Build()
End If
|