Dim filter As String = "表名 = '卷宗封面' and 列名 = '案由' and 停用 = false"
Dim fdr As DataRow = DataTables("列项设置").Find(filter)
If fdr IsNot Nothing Then
Dim 变量名 As WinForm.ComboBox = e.Form.Controls("ComboBox5")
变量名.ComboList = fdr("下拉选项")
End If
这个代码我就是参照下面代码那变通实现的 看来是我弄错了什么 还请老师指导
现在我还是原始的一个一个的绑定解决 求有效办法能够自动实现全部下拉组件 且在列项设置中已经有的数据 自动下拉取值
If e.Table.Name <> "列项设置" Then
If e.IsFocusCell Then
Dim filter As String = "表名 = '" & e.Table.Name & "' and 列名 = '" & e.Col.Name & "' and 停用 = false"
Dim fdr As DataRow = DataTables("列项设置").Find(filter)
If fdr IsNot Nothing Then
'If fdr("多值字段") Then e.Col.DataCol.ExtendType = ExtendTypeEnum.Values
e.Col.ComboList = fdr("下拉选项")
End If
End If
End If
此主题相关图片如下:231.jpg
[此贴子已经被作者于2014-7-31 22:11:56编辑过]