Dim 查找条件 As String = ""
Dim 下拉项目 As String = "A|B|C"
'
If e.Col.Name = "CMID" Then
'查找条件 = "[生产合同号] = '" & e.Row("生产合同号") & "'"
'下拉项目 = DataTables("生产计划").GetComboListString("CMID", 查找条件)
Tables(e.Table.Name).Cols(e.Col.NAme).ComboList = 下拉项目
StatusBar.Message1 = e.Col.Name
'StatusBar.Message1 = 查找条件 & " :" & 下拉项目
Else
StatusBar.Message1 = e.Table.Name & ":" & e.Col.Name
End If
If e.Col.Name = "釉色" Then
'查找条件 = "[生产合同号] = '" & e.Row("生产合同号") & "'"
'下拉项目 = DataTables("生产计划").GetComboListString("CMID", 查找条件)
Tables(e.Table.Name).Cols(e.Col.NAme).ComboList = "C|D|E"
StatusBar.Message1 = e.Col.Name
'StatusBar.Message1 = 查找条件 & " :" & 下拉项目
Else
StatusBar.Message1 = e.Table.Name & ":" & e.Col.Name
End If
加好友 
发短信
Post By：2021/7/25 17:25:00 [只看该作者]
