此主题相关图片如下：f.png

首先我们来看仓库模块、菜单上有外购入库、和生产领料，不论我点击哪个，其他跳出来的窗体都是同一个，但是窗体的标题会自动从菜单中读取。

但是外购入库的窗体上有供应商、生产领单上不需要啊，这时我们的单据配置表就起作用了，自动来判断哪些字段该显示，哪些字段为必填字段。

项目加截事件中

添加以下代码，实现自动读取从内部函数表中的记录，来生成内部函数，以方便调用，通过数据表来保存内部函数代码

Dim drs As new List(Of DataRow)
drs = DataTables("内部函数").sqlSelect("")
For Each dr As DataRow In  drs
    Functions.remove(dr("名称"))
    Functions.Add(dr("名称"),dr("代码")  )
    Functions.Complie()
Next

窗体打开后 afterload的代 码

2016年11月1日新增单设置功能

通过窗体来设置每张单据，修改单据配置表，来显示单据头和单据体要显示的字段和必填字段，以及列宽

此主题相关图片如下：1.png

窗体里的datacolchanged事件中增加以下代码

Dim ctmc As WinForm.ComboBox = e.Form.Controls("窗口名称")
Dim djlx As WinForm.ComboBox = e.Form.Controls("单据类型")
Dim btbt As WinForm.ComboBox = e.Form.Controls("表头表体")

If btbt.Value="表头" Then
   
    If e.DataCol.Name = "是否显示" Or e.DataCol.Name = "是否必填" Then
       
        Dim s As String
        Dim m As String
        For Each r As Row In Tables(e.Form.name & "_table1").Rows
            If r("是否显示") = True Then
                s = s & r("字段") & "|"
            End If
            If r("是否必填") = True Then
                m= m & r("字段") & "|"
            End If
           
        Next
        s=s.Trimend("|")
        m=m.Trimend("|")
       
        Dim dr As DataRow
        dr = DataTables("单据配置表").SQLFind( "窗口名称 = \'" & ctmc.Value & "\' and 单据类型 = \'" & djlx.Value & "\'" )
        If dr IsNot Nothing Then
            dr("单据头显示列") = s
            dr("单据头必填字段") = m
            dr.Save
        End If
    End If
ElseIf btbt.Value="表体" Then
   
    Dim s As String
    Dim m As String
    For Each r As Row In Tables(e.Form.name & "_table1").Rows
        If r("是否显示") = True Then
            s = s & r("字段") & "|" & r("宽度") & "|"
        End If
        If r("是否必填") = True Then
            m= m & r("字段") & "|"
        End If
       
    Next
    s=s.Trimend("|")
    m=m.Trimend("|")
   
    Dim dr As DataRow
    dr = DataTables("单据配置表").SQLFind( "窗口名称 = \'" & ctmc.Value & "\' and 单据类型 = \'" & djlx.Value & "\'" )
    If dr IsNot Nothing Then
        dr("单据体显示列") = s
        dr("单据体必填字段") = m
        dr.Save
    End If
    \'
End If