代码如下（在项目事件Maintablechanged)中：If MainTable.Name = "可用余额" Then
Dim f As New Filler
f.SourceTable = DataTables("合同档案")
f.SourceCols = "分公司"
f.DataTable = DataTables("可用余额")
f.DataCols = "分公司"
f.ExcludenullValue= True
f.ExcludeExistValue=True
f.Append=False
f.Fill()
End If
If MainTable.Name = "提成明细" Then
Dim f As New Filler
f.SourceTable = DataTables("合同档案")
f.SourceCols = "合同编号"
f.DataTable = DataTables("提成明细")
f.DataCols = "合同编号"
f.ExcludenullValue= True
f.ExcludeExistValue=True
f.Append=False
f.Filter="[合同状态] <> '全清'"
f.Fill()
End If
结果，第一个能正常填充，第二个就出错了，错误如下图：
此主题相关图片如下：1.png
加好友 
发短信
Post By：2013/5/4 21:58:00 [显示全部帖子]
