标题：[求助]按奇偶行填充【已解决】

1楼

狐作非为 发表于：2012/2/6 12:33:00

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:奇偶填充_0206.zip

[此贴子已经被作者于2012-2-7 12:27:40编辑过]

2楼

狐狸爸爸 发表于：2012/2/6 12:39:00

没有看明白你的问题，你要得到的结果是什么？

3楼

狐作非为 发表于：2012/2/6 12:51:00

此主题相关图片如下：1.jpg

按下填充后，

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

4楼

狐作非为 发表于：2012/2/6 13:31:00

不能沉呀

5楼

狐狸爸爸 发表于：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

共5 条记录, 每页显示 10 条, 页签: [1]