我有一个Base表,是用来给用户自定义参数的。列分别为:ID、Type、V
希望在项目运行过程中,用户定义的这些参数自动生效。
我本来是在AfterOpenProject事件中写了这段
For Each dr As DataRow In DataTables("Base").Datarows
Select Case dr("Type")
Case 1 '1整数
Vars.Add(dr("ID"),Gettype(Integer),dr("V"))
Case 2 '2字符
Vars.Add(dr("ID"),Gettype(String),dr("V"))
Case 3 '3小数
Vars.Add(dr("ID"),Gettype(Double),dr("V"))
End Select
Next
但似乎在运行过程中不起作用?是哪里出错了吗?