用填充的办法最好

Dim f As New Filler
f.SourceTable = DataTables("表A") \'指定数据来源
f.SourceCols = "第一列,第二列,第三列" \'指定数据来源列
f.DataTable = DataTables("表B") \'指定数据接收表
f.DataCols = "第三列,第四列,第五列" \'指定数据接收列
f.Fill() \'填充数据

我是一个初学者,烦请老师现再给指点一下,把上述的代码放在那儿呢?谢谢了

看这里吧：

http://www.foxtable.com/help/topics/1458.htm

最好先按顺序看帮助：

谢谢老师.这个问题解决了,但新的问题又来了,这组自动输入的代码单独使用是行的,但我原来在DataColCahangd事件中已有一组自动计算的代码.再放上去就出错.这二组代码是:一.自动输入代码

If e.DataCol.Name = "编号" Then \'发生变化的是产品编号吗?
    \'在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("客户订单").Find("编号 = " & "\'" & e.DataRow("编号") & "\'" )
    If dr IsNot Nothing \'如果找到, 则设置各列内容
        e.DataRow("长")= dr("长")
        e.DataRow("宽")= dr("宽")
       e.DataRow("高")= dr("高")

e.DataRow("订购数量")= dr("订购数量")

第二组是自动计算的代码:

Dim dr As DataRow = e.DataRow

Select Case e.DataCol.Name

    Case "长", "宽", "刀数"

         dr("长度")  = (dr("长") + dr("宽")) * dr("刀数") + 3.5

End Select

Select Case e.DataCol.Name

     Case  "宽", "高"

         dr("门幅") = (dr("高") + dr("宽")) +0.4

End Select

Select Case e.DataCol.Name

     Case  "宽"

         dr("左") = dr("宽") /2 +0.2

End Select

Select Case e.DataCol.Name

     Case  "高"

         dr("中") = dr("高")

End Select

Select Case e.DataCol.Name

     Case  "左"

         dr("右") = dr("左")

End Select

以上二组代码单独都能使用的.不知道能不能放在一起使用,谢谢老师指教.并要求得到帮助.