主题：参照做的列项设置通用版，能够自动获取表名 列名并进行相关数据填写 但是不能在数据填写后 调到其他表中 无法使用数据词典 求解

 全局表prepareEdit事件，代码

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

列控件 enter 事件

Dim ts As String = ""
For Each t As Col In Tables(e.Form.Controls("ComboBox1").text).Cols
    ts &= t.Name & "|"
Next
e.sender.ComboList = ts.TrimEnd("|")