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 Is Nothing
DataTables("列项设置").Find("表名='" & ary(0) & "' and 列名='" & ary(1) & "' and 下拉选项 Is not null and 停用=false and 条件值='其他'")
End If
If fdr IsNot Nothing
e.sender.ComboList = fdr("下拉选项")
e.Sender.AllowEditValue = fdr("允许编辑")
End If
If fdr Is Nothing
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.AllowDirectType=dr("允许编辑")
e.sender.ComboList = =dr("下拉选项")
Else
e.sender.combolist=""
End If
End If
End If