[求助]变量怎么放到控件中去 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]变量怎么放到控件中去

共有8829人关注过本帖树形打印复制链接主题：[求助]变量怎么放到控件中去

yuki

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：54 积分：552 威望：0 精华：0 注册：2011/5/19 22:59:00

[求助]变量怎么放到控件中去 发帖心情

Post By：2012/5/25 21:42:00 [只看该作者]

Dim ccc As Short
Vars.Add(ccc,Gettype(Short),400)

DataTables("统计表1").DataCols.Add("编号", Gettype(Integer)) '加编号列自动填充序号
Dim n As Integer
For Each dr As DataRow In DataTables("统计表1").DataRows
    n=n+1
    dr("编号") =n
Next

DataTables("大料").DataRows.Clear

For Each dr1 As DataRow In DataTables("统计表1").Select("长  >  ccc  And  宽  > 400" )  '复制大料到大料表中
    Dim dr2 As DataRow = DataTables("大料").AddNew
    For Each dc As DataCol In DataTables("大料").DataCols
        dr2("长") = dr1("长")
        dr2("长类型") = dr1("长类型")
        dr2("宽") = dr1("宽")
        dr2("宽类型") = dr1("宽类型")
        dr2("数量") = dr1("数量")
        dr2("编号") = dr1("编号")
    Next
Next

怎么实现改变窗口的变量ｃｃｃ跟下面的代码相呼应啊　谢谢啊　麻烦各位大大　给指点下　不胜感激