以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]按奇偶行填充【已解决】  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16219)
--  作者：狐作非为
--  发布时间：2012/2/6 12:33:00
--  [求助]按奇偶行填充【已解决】

从表A先向表B填充奇行数据，奇行数据填充完毕后，再填充偶行数据

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:奇偶填充_0206.zip

[此贴子已经被作者于2012-2-7 12:27:40编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/2/6 12:39:00
--  

没有看明白你的问题，你要得到的结果是什么？
--  作者：狐作非为
--  发布时间：2012/2/6 12:51:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
按下填充后，

从表A先向表B填充奇行数据，奇行数据填充完毕后，再填充偶行数据
--  作者：狐作非为
--  发布时间：2012/2/6 13:31:00
--  
不能沉呀
--  作者：狐狸爸爸
--  发布时间：2012/2/6 14:03:00
--  
Dim cnt As Integer
For m As Integer = 0 To 1
    For i As Integer = m To Tables("表A").Rows.Count - 1 Step 2
        If Tables("表B").Rows.Count - 1 > i Then
            Tables("表B").Rows(cnt)("第一列") = Tables("表A").Rows(i)("第一列")
            cnt = cnt + 1
        Else
            Exit For
        End If
    Next
Next