以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么把大于变量cd的值相关行都复制到新表格内  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10073)
--  作者：yuki
--  发布时间：2011/5/19 23:57:00
--  怎么把大于变量cd的值相关行都复制到新表格内
怎么把大于变量cd的值相关行都复制到新表格内
--  作者：mr725
--  发布时间：2011/5/20 0:29:00
--  

给个例子再帮你。
--  作者：狐狸爸爸
--  发布时间：2011/5/20 7:37:00
--  
如果是Vars变量：

For Each dr1 As DataRow in DataTables("表A").Select("某列 >" & Vars("cd"))   
       Dim dr2 As DataRow = DataTables("表B").AddNew
      For Each dc As DataCol In DataTables("表B").DataCols
          dr2(dc.Name) = dr1(dc.Name)
      Next
Next

如果是Public变量：

For Each dr1 As DataRow in DataTables("表A").Select("某列 >" & cd)   
       Dim dr2 As DataRow = DataTables("表B").AddNew
      For Each dc As DataCol In DataTables("表B").DataCols
          dr2(dc.Name) = dr1(dc.Name)
      Next
Next
--  作者：yuki
--  发布时间：2011/5/20 20:08:00
--  具体内容如下
把输入中的长度大于400的相关行复制到大料中 
--  作者：yuki
--  发布时间：2011/5/20 20:10:00
--  把输入中的长度大于400的相关行复制到大料中
把输入中的长度大于400的相关行复制到大料中
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
--  作者：yuki
--  发布时间：2011/5/22 19:58:00
--  

老师您好这段代码 能不能 每句都给我解释下  我怎么执行不了啊 我把文件上传 麻烦您帮我看下

 
--  作者：czy
--  发布时间：2011/5/22 20:08:00
--  
For Each dr1 As DataRow In DataTables("输入").Select("cd >" & 400)
    Dim dr2 As DataRow = DataTables("大料").AddNew
    For Each dc As DataCol In DataTables("大料").DataCols
        dr2(dc.Name) = dr1(dc.Name)
    Next
Next
--  作者：yuki
--  发布时间：2011/7/15 17:20:00
--  你好把表A的复制到表B中为什么列的位置会变啊

你好把表A的复制到表B中为什么列的位置会变啊