Foxtable(狐表)用户栏目专家坐堂 → [求助]vars的应用问题


  共有2605人关注过本帖树形打印复制链接

主题:[求助]vars的应用问题

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部