以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]列表项目排序问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=46220)
--  作者：hrw68529
--  发布时间：2014/2/19 11:55:00
--  [求助]列表项目排序问题
下面这段代码，是想生成一个目录树，按_Identify排序，但还是不行，请专家看看是哪个地方有问题。谢谢

If MainTable.Name = "工资申报审批登记表" Then
    Dim tb As New DropTreeBuilder
    tb.SourceTable = DataTables("单位基础数据表") \'指定目录树表
    tb.TreeCols = "一级单位|二级单位" \'指定用于生成目录树的列
    tb.SourceCols = "单位编码|一级单位|二级单位|工资管理方式" \'指定数据来源列
    tb.ReceiveCols = "单位编码|一级单位|二级单位|工资管理方式" \'指定数据接收列
    Tables("工资申报审批登记表").Cols("单位编码").Combolist = DataTables("单位基础数据表").GetComboListString("一级单位","","_Identify")
    Tables("工资申报审批登记表").Cols("单位编码").DropTree = tb.Build()
End If
--  作者：Bin
--  发布时间：2014/2/19 11:58:00
--  
这个不行的哦,你使用一个窗口作为下拉窗口,然后使用代码生成吧,就可以排序了.
--  作者：hrw68529
--  发布时间：2014/2/19 12:18:00
--  
数据表中的列进行项目列表，有什么办法没有？
--  作者：lsy
--  发布时间：2014/2/19 13:01:00
--  
例子发上来，我来试试看。
--  作者：czy
--  发布时间：2014/2/19 14:19:00
--  
以下是引用hrw68529在2014-2-19 12:18:00的发言：
数据表中的列进行项目列表，有什么办法没有？

 

这样吗？

 

Dim name As String
For Each dc As DataCol In DataTables("表A").DataCols
    name  = name & "|" & dc.Name
Next
forms("窗口1").Controls("ComboBox1").ComboList = name
--  作者：Bin
--  发布时间：2014/2/19 14:26:00
--  
Tables("工资申报审批登记表").Cols("单位编码").Combolist = DataTables("单位基础数据表").GetComboListString("一级单位","","_Identify")
    Tables("工资申报审批登记表").Cols("单位编码").DropTree = tb.Build()

你的代码怎么又是下拉树,又是列表项目? 到底是想怎么样呢? 这两个没办法同时存在的哦.