If e.Sender.Gettype.name = "ComboBox" AndAlso e.Sender.BindingField > "" Then
Dim ary() As String = e.Sender.BindingField.Split(".")
Dim r As Row = Tables(ary(0)).Current
If r IsNot Nothing Then
Dim filter As String = "表名 = '" & ary(0) & "' and 列名 = '" & ary(1) & "' and 下拉选项 Is not null and 停用=false and ','+条件值+',' like '%," & r("列项条件列") & ",%'"
Dim fdr As DataRow = DataTables("列项设置").Find(filter)
If fdr IsNot Nothing Then
e.sender.ComboList = fdr("下拉选项")
e.Sender.AllowEditValue = fdr("允许编辑")
End If
If fdr Is Nothing Then
Dim dr As DataRow
dr = DataTables("列项设置").Find("表名='" & ary(0) & "' and 列名='" & ary(1) & "' and 下拉选项 Is not null and 停用=false and 条件值='其他'")
If dr IsNot Nothing Then
'If dr("多值字段")=True Then
'DataTables(e.Table.name).DataCols(c.name).ExtendType = ExtendTypeEnum.Values
'ElseIf dr("多值字段")=False Then
'DataTables(e.Table.name).DataCols(c.name).ExtendType = ExtendTypeEnum.none
'End If
e.Sender.AllowEditValue = fdr("允许编辑")
e.sender.ComboList = dr("下拉选项")
Else
e.sender.combolist= " "
End If
End If
End If
End If
群主
当 列项条件列 为空，或 列项条件列的值不在 列项设置表的条件值里，报错
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.1.19.19
错误所在事件：窗口,窗口录入下拉有问题不能限制手动录入,Enter
详细错误信息：
未将对象引用设置到对象的实例。
加好友 
发短信
Post By：2020/1/20 16:11:00 [显示全部帖子]
