主题：请问“动态”全局变量怎么设置？

如下图所示，我建立了一个全局变量表，假如所有变量都为字符变量，如何“动态”地设置全局变量？请指教。。

此主题相关图片如下：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#

For Each dr As DataRow In DataTables("h_var").DataRows
   Vars.Add(dr("mc"), GetType(String), dr("var"))
Next

谢谢老爹。。真快。