Dim llkqsh As WinForm.TextBox = e.Form.Controls("llkqshTextBox")
Dim llkzzh As WinForm.TextBox = e.Form.Controls("llkzzhTextBox")
Dim ccrq As WinForm.DateTimePicker = e.Form.Controls("czrqDateTimePicker")
Dim fjzl As String = "充值凭证附件资料"
Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
For Each p As System.Diagnostics.Process In ps
output.show(p.processName)
If ("Excel" = p.ProcessName)
p.kill
End If
If FileSys.DirectoryExists( ProjectPath & fjzl) = True Then
FileSys.DeleteDirectory(ProjectPath & fjzl,2,2) '则彻底删除之
End If
Next
If jinzhihangjianyidong=False Then
Dim Result As DialogResult
Result = MessageBox.Show("窗体处于编辑状态,是否放弃编辑退出?", "提示" ,MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If Result = DialogResult.No Then
jinzhihangjianyidong=True
DataTables("充值凭证表").RejectChanges
DataTables("充值凭证表").Save
Tables("充值凭证表").Filter =""
ElseIf result = DialogResult.Yes Then
If llkqsh.text = Nothing OrElse llkqsh.Text.Length < 3 OrElse llkzzh.text = Nothing OrElse llkzzh.Text.Length < 3 OrElse ccrq.Value= Nothing Then
MessageBox.Show("输入的数据有误,保存数据失败!", "提示")
jinzhihangjianyidong=True
Tables("充值凭证表").Current.Reject
DataTables("充值凭证表").Save
Tables("充值凭证表").Filter =""
Else
jinzhihangjianyidong=True
DataTables("充值凭证表").Save
Tables("充值凭证表").Filter =""
End If
ElseIf Result = DialogResult.Cancel Then
jinzhihangjianyidong=False
e.cancel = True
Return
End If
End If
蓝老师麻烦看看哪有问题，运行后还是错误
加好友 
发短信
Post By：2020/9/13 21:11:00 [显示全部帖子]
此主题相关图片如下：截图00.jpg
