帮小弟我看看下面的代码,如何会这样!
帮我看看下面的代码,怎么会这样!!!!!!!!!!!
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f5 As New Form5
Dim month As String
month = Trim(Me.ComboBox1.SelectedItem)
Dim money1 As String
money1 = Trim(Me.TextBox1.Text)
Dim money2 As String
money2 = Trim(Me.TextBox2.Text)
Dim conn As New OleDb.OleDbConnection
conn.ConnectionString = DBHelper.ConnectionString
Dim comm As New OleDb.OleDbCommand
comm.Connection = conn
conn.Open()
If f5.RadioButton1.Checked Then
If Me.ComboBox1.Text = " " Then
MessageBox.Show( "请选择要交费的月份! ")
Else
'If f5.RadioButton1.Checked Then
comm.CommandText = "update cost_phone set [yu jiao]=[yu jiao]+ ' " + money2 + " ',[yu e]=[yu e]+ ' " + money1 + " ' where phone= ' " + f5.TextBox1.Text + " ' or month= ' " + month + " ' "
Try
comm.ExecuteNonQuery()
MessageBox.Show( "更新成功! ")
Catch ex As Exception
MessageBox.Show(ex.Message)
MessageBox.Show( "更新失败! ")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f5 As New Form5
Dim month As String
month = Trim(Me.ComboBox1.SelectedItem)
Dim money1 As String
money1 = Trim(Me.TextBox1.Text)
Dim money2 As String
money2 = Trim(Me.TextBox2.Text)
Dim conn As New OleDb.OleDbConnection
conn.ConnectionString = DBHelper.ConnectionString
Dim comm As New OleDb.OleDbCommand
comm.Connection = conn
conn.Open()
If f5.RadioButton1.Checked Then
If Me.ComboBox1.Text = " " Then
MessageBox.Show( "请选择要交费的月份! ")
Else
'If f5.RadioButton1.Checked Then
comm.CommandText = "update cost_phone set [yu jiao]=[yu jiao]+ ' " + money2 + " ',[yu e]=[yu e]+ ' " + money1 + " ' where phone= ' " + f5.TextBox1.Text + " ' or month= ' " + month + " ' "
Try
comm.ExecuteNonQuery()
MessageBox.Show( "更新成功! ")
Catch ex As Exception
MessageBox.Show(ex.Message)
MessageBox.Show( "更新失败! ")