内部函数：JMLSZ

\'\'\'======批量列设置保存=====

Dim e As Object = Args(0)

Dim nms() As String = Args(1)

Dim pth As String = ProjectPath & "Syscm\\用户设置\\" \'设置保存路径

If FileSys.DirectoryExists(pth)  = False Then

    FileSys.CreateDirectory(pth)

Else

    \'Dim nms() As String = {"Table1","Table2","Table3","Table4"}

    Dim cvs As String = ""

    For Each nm As String In nms

        cvs &=  e.Form.Controls(nm).Table.GetColVisibleWidth & chr(11)

    Next

    Dim form As String = e.Form.name

    Dim dd As String = pth & form & ".txt"

    FileSys.WriteAllText(dd, cvs.trim(chr(11)), False, Encoding.Default)

End If

调用函数：

Functions.Execute("JMLSZ",e，***)

Dim nms() As String = {"Table1","Table2","Table3","Table4"} 因为各个界面的table不一样，我想到每个界面上进行调整？