- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请问“动态”全局变量怎么设置？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3474)
-- 发布时间：2009/7/8
-- 请问“动态”全局变量怎么设置？
如下图所示，我建立了一个全局变量表，假如所有变量都为字符变量，如何“动态”地设置全局变量？请指教。。
此主题相关图片如下：01.jpg
下面的代码可以吗？请帮忙检查一下，还有别的方法吗？
Dim dr as datarow
Dim Sum As Integer
Dim i As Integer
For i = 1 to DataTables("h_var").DataRows.Count
dr = DataTables("h_var").DataRows(i)
Dim str1 as string = dr("mc")
Dim str2 as string = dr("var")
Vars.Add(" & str1 & ",GetType(String),\' & str2 & \')
Next
增加全局变量
语法
Vars.Add(VarName,GetType(Type))
Vars.Add(VarName,GetType(Type),Value)
参数
VarName: 全局变量名称
Type: 全局变量类型，需要配合GetType关键字来获得数据类型，例如GetType(String)表示字符型，GetType(Boolean)表示逻辑型。
Value: 可选参数，用于设置全局变量的初始值。
例如：
Vars.Add(
"Mark1",GetType(Boolean),False)表示增加一个逻辑型全局变量Mark1，初始值为False
Vars.Add(
"起始日期",GetType(Date),#12/31/2007#)表示增加一个日期型全局变量，名称为“起始日期”，初始值为#12/31/2007#
[此贴子已经被作者于2009-7-8 0:05:14编辑过]
-- 发布时间：2009/7/8 0:08:00
--
For Each dr As DataRow In DataTables("h_var").DataRows
Vars.Add(dr("mc"), GetType(String), dr("var"))
Next
-- 发布时间：2009/7/8 0:12:00
--
谢谢老爹。。真快。