报错，另收款凭证无法删除单 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

收款凭证中的菜单按钮无法删除单据，连提示是否删除窗口都没弹出来，下午试过删除成功的，之后不行了！

Dim Result As DialogResult

Result = MessageBox.Show("是否确定要删除此单?","提示",MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

DataTables("财务数据源").SQLDeleteFor("[字号] ='" & (e.Form.Controls("Label5").Text).SubString(0,2) & "' And Month([日期]) = #" & Month(e.Form.Controls("rq").Value) & "# And [凭证号] =" & "'" & e.Form.Controls("dh").text & "' And ([已审核] = false or [已审核] is null)")

Else

Return

End If

e.Form.Close()

双击财务数据源表的收字行（我只上传收款的代码）总弹窗提示：

此主题相关图片如下：qq图片20210604204615.png

此主题相关图片如下：qq图片20210604204634.png

收款凭证打开后正常，我打开财务数据源表的DoubleClick事件看过，Forms("收款凭证").Controls("rq").text = e.Row("日期")有赋值，代码没问题，错误提示也只是在第一次点击打开收款凭证窗口时报错，之后关闭后重打开没报错了，为了上传给你看，我把表、窗口导过来，在新项目中打开，双击财务数据源表的收字行的报错变为找不到名称为"dh1"的控件！

很奇怪！之前我说关闭窗口不断重复再打开的现象在我的项目中又出现了，搬过来现在的新项目不知还会否出现！我多次试尝过删除bin文件夹后再重新打开项目，依然报错，也试过删除程序重装，重启后打开还是一样报错，我再尝试删除程序重装到C盘新建的文件夹，结果软件直接提示不能打开非商业性文件，改回安默认路径重装才正常，到底是我的问题还是软件的问题？晕！