已解決錯誤代碼

提問者：翟彌  |  瀏覽次  |  提問時間：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