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

标题：求助！这段代码哪里有问题？

1楼

baoxyang 发表于：2009/5/18 19:02:00

For Each dr1 As Row In Tables("查询表.出入库明细表").Rows
    Dim dr2 As Row = Tables("出库导出表").Addnew()
    For Each dc As Col in Tables("出库导出表").Cols
       dr2(dc.name) = dr1(dc.name)
    Next
Tables("查询表.出入库明细表").current.delete
Next
以上代码是实现查询表.出入库明细表中显示的所有行复制到“出库导出表中”，需要执行几次才能完成？不会一次复制所有行。请教代码问题出在哪？

2楼

yangming 发表于：2009/5/18 19:17:00

你要的是复制所有行还是当前行?

3楼

baoxyang 发表于：2009/5/18 19:22:00

所有行。

4楼

八婺发表于：2009/5/18 19:25:00

何不用数据填充器？

5楼

yangming 发表于：2009/5/18 19:26:00

那用

数据填充器

Filler用于从表中提取数据，并填充到另一个表中。
所有行用这个不是很方便吗?

[此贴子已经被作者于2009-5-18 19:26:40编辑过]

6楼

baoxyang 发表于：2009/5/18 19:38:00

想想！

7楼

yangming 发表于：2009/5/18 19:43:00

dim f As New Filler
f.SourceTable = DataTables("查询表.出入库明细表") '指定数据来源
f.DataTable = DataTables("出库导出表") '指定数据接收表
f.Fill() '填充数据

如果在填充前先清空"出库导出表"中的数据,可以第一行加入
DataTables("出库导出表").DataRows.Clear()

[此贴子已经被作者于2009-5-18 19:45:24编辑过]

8楼

八婺发表于：2009/5/18 20:05:00

如果是一楼的代码，我想你应该

For Each dr1 As Row In Tables("查询表.出入库明细表").Rows
    Dim dr2 As Row = Tables("出库导出表").Addnew()
    For Each dc As Col in Tables("出库导出表").Cols
       dr2(dc.name) = dr1(dc.name)
    Next
Next
DataTables("表名").DataRows.Clear()

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