主题：导入

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()

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

麻烦下  谢谢

设计个录入窗口吧.添加的同时 也为（盘头_绩效）表添加数据即可.

不用录入窗口  直接用代码

不用录入窗口 直接用代码? 什么意思? 录入窗口一样的是写代码啊?

直接在我原来的基础上改