vb中有多处不规范的地方,程序跑起来容易出问题,上面的朋友都讲到了你的问题,从SQL语句讲,insert后面没有into也是不规范的。
不要用 Ado.Recordset.AddNew
或者用完后 ado.recordset.update 一下
还有你用的 goto 语句, 让我叹为观止。一个字:服,没见过VB编程用goto语句的。
你要实现什么的功能呢?
If TNR.Text = Null Then
MsgBox "没有内容!"
这个不好判断吧,是不是这个意思哦,
If TNR.Text = "" Then
MsgBox "没有内容!"
exit sub
ElseIf TJE.Text = "" Then
MsgBox "金额是多少?"
exit sub
ElseIf bz = False Then
je = 0 - TJE.Text '好像不能运算吧??类型不配
End If