主题：请老师验证下学生的代码是否正确

看不懂你的代码，既然是按钮的代码，为什么代码中会出现e.DataRow？

你这个e.DataRow是什么？

还有下面这样，注释和代码是自相矛盾的啊：

If DataTables("账面明细").Find("销售日期 = '" & dr("日期") & "'") Is Nothing Then 如果“账面明细”表中已经存在相同日期的行

请重新表述一下你这段代码的目的和逻辑。