主题：窗口录入与查询

我的例子，加上下面的代码，肯定没问题。如果有问题，实例发上来测试。

for each r As Row in Tables("订单审核_Table1").Rows

    r("联络人") = dr("联系人姓名")

    r("供应商") = dr("供应商名称")

    r("供应商传真") = dr("供应商传真")

next