主题：点击按钮导入数据到当前明细表出错

Dim f As New Filler
f.SourceTable = DataTables("SPDA") '指定数据来源
f.SourceCols = "SPBM,SPMC" '指定数据来源列
f.DataTable = DataTables("DHD_SPMX") '指定数据接收表
f.DataCols = "SPBM,SPMC" '指定数据接收列

f.Filter = "关联列 = '" & Tables("DHD").Current("关联列") & “‘”
f.Fill() '填充数据

Dim f As New Filler
f.SourceTable = DataTables("SPDA") '指定数据来源
f.SourceCols = "SPBM,SPMC" '指定数据来源列
f.DataTable = DataTables("DHD_SPMX") '指定数据接收表
f.DataCols = "SPBM,SPMC" '指定数据接收列

f.Filter = "DHD_SPMX的关联列名称 = '" & Tables("DHD").Current("DHD的关联列名称") & “‘”
f.Fill() '填充数据

这是假定关联列是字符型的，如果关联列是数值型：

Dim f As New Filler
f.SourceTable = DataTables("SPDA") '指定数据来源
f.SourceCols = "SPBM,SPMC" '指定数据来源列
f.DataTable = DataTables("DHD_SPMX") '指定数据接收表
f.DataCols = "SPBM,SPMC" '指定数据接收列

f.Filter = "DHD_SPMX的关联列名称 = " & Tables("DHD").Current("DHD的关联列名称")
f.Fill() '填充数据

一般提问的话，最好配合一个简单的例子，例如做个文件，包括这两个表，保量几行数据，建立好关联，然后发上来，这样我们可以直接测试好后再给你正确的代码。