主题：[求助]导入求助

If msgbox("是否进行追加操作?",65,"提示")=1 Then
    DataTables("订单").datarows.clear()
    Dim f As New Filler
    f.SourceTable = DataTables("临时表") '指定数据来源
    f.SourceCols = "规格型号,订单数量" '指定数据来源列
    f.DataTable = DataTables("订单") '指定数据接收表
    f.DataCols = "规格型号,订单数量" '指定数据接收列
    f.Distinct = False
    f.ExcludeExistValue = False
    f.Fill() '填充数据
    DataTables("订单").save
End If

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