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

Dim dr As DataRow=e.DataRow

Select Case e.DataTable.name

    Case "列项设置"

        If e.DataCol.name="表名" Then

            If dr.Isnull("表名") OrElse e.NewValue<>e.OldValue Then

                dr("列名")=Nothing

            End If

        End If

End Select

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