错误代码

提问者：翟弥  |  浏览 次  |  提问时间：2017-02-24  |  回答数量：2

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click Dim dGetMoney As Double = CType(Me.txbGet.Text.Trim, Double) Dim dTotalMoney As Double = CType(txbTotal.Text.Trim, Double) If (dGetMoney - dTotalMoney) < 0 Then Dim dlgResult As DialogResult = MessageBox.Show(\"请确保费用已经交齐！\"\"提示\", MessageBoxButtons.YesNo) If dlgResult = Windows.Forms.DialogResult.No Then Return End If End If Dim db As DataBase = New DataBase db.RunDelOrInsSQL