以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表经过下面的代码为什么在大料中不是顶行开始  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=17422)

--  作者:yuki
--  发布时间:2012/3/12 23:57:00
--  表经过下面的代码为什么在大料中不是顶行开始
For Each dr1 As DataRow In DataTables("输入").Select("长 >" & 400)
    Dim dr2 As DataRow = DataTables("大料").AddNew
    For Each dc As DataCol In DataTables("大料").DataCols
        dr2(dc.Name) = dr1(dc.Name)
       
    Next
Next
表经过下面的代码为什么在大料中不是顶行开始  有什么办法可以让他从顶行开始吗  谢谢  

--  作者:程兴刚
--  发布时间:2012/3/13 0:47:00
--  
每明白您啥意思!
--  作者:yuki
--  发布时间:2012/3/13 10:11:00
--  就是把输入表中的数据
就是把输入表中的数据用上面的代码筛选到大料中  顶层有空白行
--  作者:狐狸爸爸
--  发布时间:2012/3/13 11:11:00
--  

DataTables("大料").DataRows.Clear

For Each dr1 As DataRow In DataTables("输入").Select("长 >" & 400)
      Dim dr2 As DataRow = DataTables("大料").AddNew
      For Each dc As DataCol In DataTables("大料").DataCols
               dr2(dc.Name) = dr1(dc.Name)
      Next
Next


--  作者:yuki
--  发布时间:2012/3/13 21:44:00
--  谢谢老爹了
谢谢老爹了    非常感谢!!!!!!!!!!