以下是引用实话实说在2009-10-17 21:03:00的发言：订单表的型号列取自产品表的型号
If
MainTable.Name = "订单" Then '如果选择的主表是订单表
Tables("订单").Cols("产品").Combolist = DataTables("产品").GetComboListString("型号")
End If
我想下拉列表按产品表的_Identify排序,代码加在哪?
大概差不多这样吧。
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
加好友 
发短信
Post By：2009/10/17 22:36:00 [显示全部帖子]
