以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]变量怎么放到控件中去  (http://foxtable.com/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
--  
对的,老记成字符了,后面又多加了一个 \'