Dim f As New Filler
If e.Form.Controls("ComboBox1").text = "赊欠"
    f.SourceTable = DataTables("销售明细")
    f.SourceCols ="时间,单据编号,客户"
    f.DataTable = DataTables("客户赊销明细")
    f.DataCols = "时间,单据编号,客户"
    f.ExcludeExistValue= True
    f.Fill()
End If

f.SourceTable = DataTables("销售明细") \'指定数据来源
f.SourceCols = "产品名称_通用名,价格,客户,包装规格,剂型,产品名称_商品名" \'指定数据来源列
f.DataTable = DataTables("客户价目表") \'指定数据接收表
f.DataCols = "产品名称_通用名,价格,客户,包装规格,剂型,产品名称_商品名"
f.Filter="客户 Is Not Null"
f.ExcludeExistValue= True
f.Fill()

f.SourceTable = DataTables("销售明细") \'指定数据来源
f.SourceCols = "时间,单据编号,产品名称_通用名,价格,数量,客户,包装规格,剂型,产品名称_商品名,批发,成本,类型,合计,利润,供货商" \'指定数据来源列
f.DataTable = DataTables("销售明细统计") \'指定数据接收表
f.DataCols = "时间,单据编号,产品名称_通用名,价格,数量,客户,包装规格,剂型,产品名称_商品名,批发,成本,类型,合计,利润,供货商" \'指定数据接收列
f.Filter="产品名称_商品名 Is Not Null"
f.ExcludeExistValue= True
f.Fill()

f.SourceTable = DataTables("销售明细")
f.SourceCols = "时间,单据编号,客户"
f.DataTable = DataTables("统计")
f.DataCols = "时间,单据编号,客户"
f.ExcludeExistValue = True
f.Fill()

Dim find As DataRow
find = DataTables("统计").Find("单据编号 = \'"& Forms("销售").Controls("Label单据编号").text &"\'")
find("实收")= e.Form.Controls("TextBox1").text

添加了这段代码后，运行时总提示 “未将对象引用设置到对象的实例。”请问一下老师，我是哪里出的问题？

这个是窗口的 按钮 click 事件

补充一下。  

 在 fill 完 ‘统计’ 表后，统计增加了一行， 但是我想将增加行中的 ‘实收’ 这列的数据，由我当前 form 的 textbox1 中写入。  所以有了最下面红字的那行 代码， 但是程序运行到这行代码的时候老是报错。

所以我想问问，到底是哪里出错了。

那么老师，不用find 用什么呢、。

你要加个判断 确认符合你条件的行存在

Dim find As DataRow
find = DataTables("统计").Find("单据编号 = \'"& Forms("销售").Controls("Label单据编号").text &"\'")

if find isnot nothing then
find("实收")= e.Form.Controls("TextBox1").text

end if

嗯，加了判断语句，虽然不会报错了， 但是实际上还是找不到这行的存在。

刚才我又在这个事件里面加了好几个 find 语句， 但是全部找不到内容。

是不是我用法有问题?   用Select又直接报错。

是把 textbox 的值赋予 实收列

“实收”是接收列。

参考

For Each dr As DataRow In DataTables("统计").Select("")
    If dr.RowState = DataRowState.Added Then
        dr("实收")=  e.Form.Controls("TextBox1").text
    End If
Next