Foxtable(狐表)用户栏目专家坐堂 → 能把窗口的控件相关信息保存在表里,在窗口加载时用函数调出来吗?


  共有8151人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
lin_hailun
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/16 21:07:00 [显示全部帖子]

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/17 8:52:00 [显示全部帖子]

做一个简单的例子吧。

 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/17 12:01:00 [显示全部帖子]

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

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

 msgbox(a) 的值是 "abc"
[此贴子已经被作者于2013-1-17 12:02:10编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/17 14:21:00 [显示全部帖子]

以下是引用xuezxz在2013-1-17 12:53:00的发言:

 

图片点击可在新窗口打开查看



很明显生成的代码错了。楼主,没有那么方便的。

xxx.B("控件属性") 这个必须是一个确定的值,也就是这个必须动态编译成 xxx.Text

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/17 15:42:00 [显示全部帖子]

 明白了你要做的东西了,这个很简单的,就是每次都动态编译和执行一下。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:没重复提交啊.table


 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/17 15:44:00 [显示全部帖子]

 代码还可以编译一次执行。代码写在 内部函数里

 比如这样,代码:

Dim A As List(Of DataRow) = DataTables("表A").Select("窗口名 = '" & args(0) & "'")
Dim code As String = ""
For Each B As DataRow In A
    code += "Forms(""" & B("窗口名") & """).Controls(""" & B("控件名") & """)." & B("控件属性") & " = " & B("值") & vbcrlf
Next
Functions.remove("temp")
Functions.add("temp", Code)
Functions.Complie()
Functions.Execute("temp")
[此贴子已经被作者于2013-1-17 15:44:50编辑过]

 回到顶部