收款凭证中的菜单按钮无法删除单据，连提示是否删除窗口都没弹出来，下午试过删除成功的，之后不行了！
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盘新建的文件夹，结果软件直接提示不能打开非商业性文件，改回安默认路径重装才正常，到底是我的问题还是软件的问题？晕！
[此贴子已经被作者于2021/6/4 22:34:16编辑过]
加好友 
发短信
Post By：2021/6/4 21:58:00 [只看该作者]
