主题：[求助]关于运行中退出的问题，请高手指教

做一个窗口,放一个按钮,在Click事件里面写代码

例如从临时表中提取不重复的客户、产品数据，填充到统计表中：

dim f As New Filler
f.SourceTable = DataTables("临时单") '指定数据来源
f.SourceCols = "产品,客户" '指定数据来源列
f.DataTable = DataTables("统计") '指定数据接收表
f.DataCols = "产品,客户" '指定数据接收列

f.ExcludeExistValue=true  '排除接收表中已经存在的内容
f.Fill() '填充数据