主题：导入到关联表

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter = "Excel|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim mg As New Merger
     mg.Format = "excel"
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "出库明细$"
    mg.DataTableName = "出库明细"
    mg.Merge()

dim r as row = tables("出库列表").current

datatables("出库明细").replacefor("出库单号",r("出库单号"),"_identify >" & id)

End If

2、使用这种方法导入：http://www.foxtable.com/webhelp/topics/2334.htm