[求助]数据填充器代码问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim id As Integer = DataTables("历史信息") .Compute("max(_Identify)")

Dim f As New Filler

f.SourceTable = DataTables("员工信息") '指定数据来源

f.SourceCols = "姓名,性别,民族,政治面貌" '指定数据来源列

f.DataTable = DataTables("历史信息") '指定数据接收表

f.DataCols = "姓名,性别,民族,政治面貌" '指定数据接收列

f.Fill() '填充数据

DataTables("历史信息").ReplaceFor("离职原因",ly1,"_Identify >" & id)

DataTables("历史信息").ReplaceFor("离职时间",ls1,"_Identify >" & id)

主题：[求助]数据填充器代码问题