主题：[求助]变量怎么放到控件中去

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

 

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