以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]vars的应用问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91482)
--  作者：chnfo
--  发布时间：2016/10/11 22:12:00
--  [求助]vars的应用问题
我有一个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
但似乎在运行过程中不起作用？是哪里出错了吗？
--  作者：有点蓝
--  发布时间：2016/10/11 22:23:00
--  
运行看弹出什么内容

For Each dr As DataRow In DataTables("Base").Datarows
msgbox(dr("Type"))
msgbox(dr("ID"))
                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
msgbox(Vars(dr("ID")))
            Next