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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]变量怎么放到控件中去  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19969)

--  作者：yuki
--  发布时间：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

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

--  作者：sloyy
--  发布时间：2012/5/27 1:21:00
--

For Each dr1 As DataRow In DataTables("统计表1").Select("长  >  & ccc  &" And  宽  > 400 & "\'" )

--  作者：yuki
--  发布时间：2012/5/27 23:04:00
--  不行啊　照你这么写　宽都变成未命名了怎么回事啊　　在帮我看下　谢谢
错误显示　宽　未声明

--  作者：sloyy
--  发布时间：2012/5/28 0:20:00
--

不好意思少了一个 "

DataTables("统计表1").Select("长 > " & ccc & " And 宽 > 400 & "\'" )

--  作者：程兴刚
--  发布时间：2012/5/28 0:24:00
--

以下是引用sloyy在2012-5-28 0:20:00的发言：

不好意思少了一个 "

DataTables("统计表1").Select("长 > " & ccc & " And 宽 > 400 & "\'" )

或许还是有问题，这样呢：

DataTables("统计表1").Select("长 > " & ccc & " And 宽 > 400" )

--  作者：sloyy
--  发布时间：2012/5/28 0:58:00
--
对的,老记成字符了,后面又多加了一个 \'