Dim s As String = e.Form.Controls("ComboBox6").Value
Dim v1 As String = DataTables("铁盘订单").GetComboListString("规格尺寸", "[订单编号] = '" & s & "'")
Dim v2 As String = DataTables("木箱订单").GetComboListString("规格尺寸", "[订单编号] = '" & s & "'")
Dim v3 As String = DataTables("全铁盘订单").GetComboListString("规格尺寸", "[订单编号] = '" & s & "'")
Dim v4 As String = DataTables("木托架订单").GetComboListString("规格尺寸", "[订单编号] = '" & s & "'")
e.Sender.ComboList = v1 & "|" & v2 & "|" & v3 & "|" & v4
[此贴子已经被作者于2012-3-7 20:20:27编辑过]
加好友 
发短信
Post By：2012/3/7 20:20:00 [显示全部帖子]
