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

如题

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

可以，就是比较麻烦。用动态编译吧。

http://www.foxtable.com/help/topics/1487.htm

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

每天一顶，求关注

做一个简单的例子吧。

 

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

点击浏览该文件:管理项目1.table

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

 

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

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

你函数呢 没有呀

 不知道你要实现什么。关键是你要把想要执行的代码用字符串构造出来，你自己msgbox(code)看看哪里写错了吧。

 注意的是 两个双引号 等于一个双引号， 比如 dim a as string = """" & "abc" & """"

 msgbox(a) 的值是 "abc"

 

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()