全局变量和全局代码的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 全局变量和全局代码的问题

共有11166人关注过本帖树形打印复制链接主题：全局变量和全局代码的问题

chnfo

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2239 积分：18446 威望：0 精华：0 注册：2011/11/26 20:21:00

全局变量和全局代码的问题 发帖心情

Post By：2012/6/30 13:29:00 [只看该作者]

是这样的，因为企业里有时候涉及到统计和业务单据界面计算显示方面的需要。

假设以库存为例子，每天都有出入库。

可能要按周、月统计情况。

那么就至少有两个参数

1、周的开始日，有7个选项，分别是周一至周七

2、月的开始日，有28个以上的选项，分别是1号～28号

3、小数点位数，例如金额，有的算得细到分，有的算得粗到元。

我想做一个表base，专门来存放这些参数，方便报表或者填写业务数据表的时候用到它们。

例如：

编号名称参数值

1 周开始日可以让用户去选择1～7的数值

2 月开始日可以让用户输入1~28的数值

3 金额小数点位数可以让用户输入0～2的数值

看了一下全局变量和全局参数，还是不太清楚该如何整，请教各位高手。

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/6/30 14:47:00 [只看该作者]

你可以使用Var变量：
http://www.foxtable.com/help/topics/0325.htm

窗口中的控件可以绑定到Var变量的：
http://www.foxtable.com/help/topics/0704.htm

你可以将BeforeCloseProject事件中将Var变量的值保存到设置中,在AfterOpenProject事件中读取保存的值到Var变量中：

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

[此贴子已经被作者于2012-6-30 14:49:06编辑过]

chnfo

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2239 积分：18446 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2012/6/30 22:42:00 [只看该作者]

可能是我的意思没有表述清楚。

（1）全局变量的设置里，只有三列，不足以描述全局变量的所有属性

（2）我所要设的全局变量不是一个，是多个，还可能在做的过程中需要补充其它的全局变量，所以，用控件绑定的方式感觉不太合理

（3）至于要BeforeCloseProject中保存Var变量到设置中，既然不太好用全局变量来设置，这个好象就不太合适了。

我是想做成这样的

编号	名称	说明	值
1	WeekStart	每周开始日	2
2	MonthStart	每月开始日	15
3	ListADot	业务单据数量小数点位数	3
4	ListVDot	业务单据金额小数点位数	0

当然，在这个表里还可以增加其它的变量

怎么样把这些表里的值设为各个名称的全局变量供所有的地方引用呢？

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/7/2 9:33:00 [只看该作者]

其实很简单，不过你的表应该再增加一个名为“数据类型”的列，然后在AfteropenProject事件中设置代码：

For Each dr As DataRow In DataTables("xxx").Datarows
    Select Case dr("数据类型")
        Case "整数"
            Vars.Add(dr("名称"),Gettype(Integer),dr("值"))
        Case "字符"
            Vars.Add(dr("名称"),Gettype(String),dr("值"))
    End Select
Next

chnfo

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2239 积分：18446 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2012/7/3 9:45:00 [只看该作者]

Very good!

学到方法了，不一定要在全局变量中设置，而是用代码的方式来添加全局变量。

3Q！！

狐狸爸爸

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/7/3 9:49:00 [只看该作者]

呵呵，多看帮助，你就不会被这样的问题困扰。

其实帮助处处是宝来的。

chnfo

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2239 积分：18446 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2012/7/6 11:59:00 [只看该作者]

因为我是准备做数值处理，所以XXX表中设置初始值都是整数，那么是不是可以直接这样呢？

For Each dr As DataRow In DataTables("xxx").Datarows
' Select Case dr("数据类型")
' Case "整数"
Vars.Add(dr("名称"),Gettype(Integer),dr("值"))
' Case "字符"
' Vars.Add(dr("名称"),Gettype(String),dr("值"))
' End Select
Next

也就是说，把select都注释掉，但这样，保存的时候会报错？