群主，再请教一下列项设置 表里的 列项条件列，允许为空时，下面代码怎么修改求助
AfterSelChange
Dim dr As DataRow
If e.OldRange.RowSel <> e.NewRange.RowSel OrElse e.OldRange.ColSel <> e.NewRange.ColSel Then
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
If c.IsString Then
dr=DataTables("列项设置").find("表名='" & e.Table.name & "' and 列名='" & c.Name & "' and 下拉选项 Is not null and 停用=false")
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
c.AllowDirectType=dr("允许编辑")
c.combolist=dr("下拉选项")
Else
c.combolist=""
End If
End If
End If
窗口与控件事件
窗口录入下拉有问题不能限制手动录入_Enter
If e.Sender.Gettype.name = "ComboBox" AndAlso e.Sender.BindingField > "" Then
Dim ary() As String = e.Sender.BindingField.Split(".")
Dim filter As String = "表名 = '" & ary(0) & "' and 列名 = '" & ary(1) & "' and 停用 = false"
Dim fdr As DataRow = DataTables("列项设置").Find(filter)
If fdr IsNot Nothing
e.sender.ComboList = fdr("下拉选项")
e.Sender.AllowEditValue = fdr("允许编辑")
End If
End If
上面代码，当列项设置 表里的 列项条件列为空时，没有下拉选项，想也实现有下拉选项，求助
加好友 
发短信
Post By：2020/4/14 22:11:00 [显示全部帖子]
此主题相关图片如下：123.jpg