主题：能把窗口的控件相关信息保存在表里，在窗口加载时用函数调出来吗？

如题

Dim A As List(of DataRow) = DataTables("表").Select("窗口 = '" & args(0) & "'")
For Each B As DataRow In A

   forms(B("窗口")).Controls(B("控件名")).B("控件属性") = B("属性值")
Next

怎么让 B("控件属性") 这个部分也能用变量代替？

哎呀，这个积分不错，666

林帅，动态编译怎么实现啊？和预先设定的函数有什么区别？ forms(B("窗口")).Controls(B("控件名")).B("控件属性") = B("属性值")
这句可以这么用吗？

林帅，还不行啊，什么情况啊？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:没重复提交啊.table

AfterOpenProject

Dim Code As String

code = "Dim A As List(of DataRow) = DataTables(""" & "表A" & """).Select(""" & "窗口名 = '""" & " & args(0) & " & """'"")" & vbcrlf

code = code & "For Each B As DataRow In A" & vbcrlf

code = code & "forms(B(""" & "窗口名" & """)).Controls(B(""" & "控件名" & """)).B(""" & "控件属性" & """) = B(""" & "值" & """)" & vbcrlf

code = code & "Next"

msgbox(code)

Functions.remove("动态编译")

Functions.add("动态编译", Code)

Functions.Complie()

琢磨半天，还是搞不懂，其实我想实现的就是怎么把窗口中的一些控件的值保存起来，下次打开窗口时又能直接用，又不想一个窗口一个窗口去写载入的代码，就想能不能做个通用的函数直接从表里读出来，嘿嘿，菜鸟一个，高手们有什么好的思路教教俺吧。