你要加个判断 确认符合你条件的行存在
Dim find As DataRowfind = DataTables("统计").Find("单据编号 = '"& Forms("销售").Controls("Label单据编号").text &"'")
if find isnot nothing thenfind("实收")= e.Form.Controls("TextBox1").text
end if