共9 条记录, 每页显示 10 条, 页签: [1]

标题：下拉列表排序求助

1楼

实话实说 发表于：2009/10/17 21:03:00

订单表的型号列取自产品表的型号

If MainTable.Name = "订单" Then '如果选择的主表是订单表
Tables("订单").Cols("产品").Combolist = DataTables("产品").GetComboListString("型号")
End If

我想下拉列表按产品表的_Identify排序,代码加在哪?

2楼

程兴刚 发表于：2009/10/17 21:17:00

按照用_Identify列排序，实际就是不排序，请参考这个帖子：

http://fox.egridsoft.com/dispbbs.asp?BoardID=2&ID=4306&replyID=&skin=1

3楼

实话实说 发表于：2009/10/17 21:24:00

不是这样的。我的产品规格列先后录入16和120（字符型）如果不指定_Identify排序，则订单表规格列下拉显示120和16

4楼

程兴刚 发表于：2009/10/17 21:26:00

是不是大家帮您看，您自己多理解那个帖子就知道了！

5楼

czy 发表于：2009/10/17 22:36:00

以下是引用实话实说在2009-10-17 21:03:00的发言：
订单表的型号列取自产品表的型号

大概差不多这样吧。

If MainTable.Name = "订单" Then '如果选择的主表是订单表
    Dim ls As New List(Of String)
    Dim str,str1 As String
    For Each dr As DataRow In DataTables("产品").DataRows
        str = dr("型号")
        If str > "" AndAlso ls.Contains(str) = False
            ls.Add(str)
            str1 = str1 & "|" & str
        End If
    Next
    Tables("订单").Cols("型号").Combolist = str1.Trim("|")
End If

6楼

实话实说 发表于：2009/10/17 22:56:00

还是没搞明白，送个例子上来

下载信息 [文件大小：296.0 KB 下载次数：5]
点击浏览该文件:管理项目2.table

7楼

czy 发表于：2009/10/17 23:01:00

下载信息 [文件大小：300.0 KB 下载次数：18]
点击浏览该文件:管理项目1.table

8楼

实话实说 发表于：2009/10/17 23:11:00

满意，谢谢CZY。也谢谢程兴刚

[此贴子已经被作者于2009-10-17 23:11:45编辑过]

9楼

程兴刚 发表于：2009/10/17 23:50:00

以下是引用实话实说在2009-10-17 23:11:00的发言：
满意，谢谢CZY。也谢谢程兴刚

[此贴子已经被作者于2009-10-17 23:11:45编辑过]

呵呵，不客气，我没做什么，原想有一个差不多的例题让您简单改改就可以自己完成，我都没动手！

共9 条记录, 每页显示 10 条, 页签: [1]