| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 单元格设置加载树时如何设置加载条件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110585) |
| -- 作者：土佛 -- 发布时间：2017/12/5 21:59:00 -- 单元格设置加载树时如何设置加载条件 各位老师好，我有一段在单元格中设置加载树代码，希望放到项目事件 AfterOpenProject中，同时还希望点刷新按钮时能实时刷新，在这里，我知道 e.row不属于AfterOpenProject，但放在这里是为了说明我希望按此条件生成加载树，所以，请问各位大师，这个代码该如何变通，谢谢！ |
| -- 作者：土佛 -- 发布时间：2017/12/5 22:02:00 -- 上传的文件
|
| -- 作者：有点蓝 -- 发布时间：2017/12/5 22:02:00 -- 贴出代码。 |
| -- 作者：土佛 -- 发布时间：2017/12/5 22:05:00 -- 贴出代码 发不出去，所以我就把它放到记事本 当附件 上传了
|
| -- 作者：土佛 -- 发布时间：2017/12/5 22:11:00 -- 应该是点插入代码按钮，不好意思，开始没弄明白 |
| -- 作者：有点蓝 -- 发布时间：2017/12/5 22:20:00 -- 文件在哪？http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78 |
| -- 作者：土佛 -- 发布时间：2017/12/5 22:24:00 -- Dim cmd6 As New SQLCommand Dim dt6 As DataTable cmd6.C |
| -- 作者：土佛 -- 发布时间：2017/12/5 22:26:00 -- cmd6.CommandText = |
| -- 作者：土佛 -- 发布时间：2017/12/5 22:30:00 -- 实在抱歉，我也做了附件，传不上去 |
| -- 作者：土佛 -- 发布时间：2017/12/5 22:33:00 -- Dim cmd6 As New SQLCommand Dim dt6 As DataTable cmd6.C cmd6.CommandText = where [DNP编码] = \'" & e.Row("DNP编码") & "\'And [同批次正品库存M]>0" dt6 = cmd6.ExecuteReader() Dim tb6 As New DropTreeBuilder tb6.SourceTable = dt6 tb6.TreeCols = "DNP生产批次|同批次正品库存M|同批次次品库存M" tb6.SourceCols = "DNP生产批次" tb6.ReceiveCols = "DNP生产批次" Tables("出货规划").Cols("DNP生产批次").DropTree = tb6.Build()
|