主题：导入

Dim f As New Filler
f.SourceTable = DataTables("盘头_入库") '指定数据来源
f.SourceCols = "jth,rkrq,bc,czz,pmgg,ts,gs,ms,sbms,xbms,js" '指定数据来源列
f.DataTable = DataTables("盘头_绩效") '指定数据接收表
f.DataCols = "jth,rq,bc,czz,pmgg,ts,gs,ms,sbms,xbms,js" '指定数据接收列
f.Fill()
DataTables("盘头_绩效").Save()

想要在（盘头_入库)表新增加数据时导入到（盘头_绩效）表中

麻烦下  谢谢

不用录入窗口  直接用代码

直接在我原来的基础上改