预设值表如何在窗口保存数据和提取数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如果只是为了把表格的数据和控件对应起来，完全不需要使用这种全局代码，反而更复杂了。

其次全局代码的用法完全是错误的

1、不能在全局代码定义变量的时候直接给变量赋值

2、全局代码初始化的时候表格还没有，不能使用

再次，这种字典数据的维护，个人建议在窗口里直接使用表格维护，直观又简单，需要增加一个字典项的时候完全不需要改窗口。如果使用文本框的方式，如果以后要加一个项目，还得重新改窗口添加一个文本框对应，多麻烦

如果一定要使用文本框，建议使用find等函数查表获取对应的行，然后和文本框值对应起来，比如：

给控件赋值，建议表格增加一个索引列，和控件的名称对应起来，比如表格索引1，对应文本框textbox1、索引2，对应文本框textbox2，然后代码

for each dr as datarow in datatables("预设值").select("类别=‘基本资料’")

e.form.controls("textbox" & dr("索引")).text = dr("文本")

从控件取值

for each dr as datarow in datatables("预设值").select("类别=‘基本资料’")

dr("文本") = e.form.controls("textbox" & dr("索引")).text

[此贴子已经被作者于2021/11/20 9:39:55编辑过]

查表再用并不会比直接使用变量慢多少。再说了，确定知道ddt01、ddt02这种没有任何表述性的名称表示个神马东西吗？换个开发人员，根本理解不了，就算是自己，过一段时间，估计也忘记了。感觉是为了自己“觉得”方便而方便，反而给以后挖了个坑。

给变量赋值的代码放到afteropenproject事件。全局代码只定义变量，不要赋值

变量是没有办法动态定义的，只能一个一个傻傻的用

ddt01 = “xx”

ddt02 = “xxx”

可以考虑使用字典，比如

全局代码

public dict as new dictionary(of string ,string)

afteropenproject

for each dr as datarow in datatables("预设值").select("类别=‘基本资料’")

dict.add(dr("函数名"),dr("文本"))

其它事件调用

e.form.controls("textbox1").text = dict("ddt01")

dict(e.Form.Controls("ddt0"& i).Name) = e.form.controls("ddt0"& i).text

主题：预设值表如何在窗口保存数据和提取数据