帮我看看下面的代码，怎么会这样！！！！！！！！！！！
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( "更新失败！ ")
End Try
comm.Dispose()
conn.Close()
End If
End If
If f5.RadioButton2.Checked Then
If Me.ComboBox1.Text = " " Then
MessageBox.Show( "请选择要交费的月份！ ")
Else
'If f5.RadioButton2.Checked Then
comm.CommandText = "update cost_telephone set [yu jiao]=[yu jiao]+ ' " + money2 + " ',[yu e]=[yu e]+ ' " + money1 + " ' where cost_telephone.telephone= ' " + f5.TextBox1.Text + " ' or cost_month.[month]= ' " + month + " ' "
Try
comm.ExecuteNonQuery()
MessageBox.Show( "更新成功！ ")
Catch ex As Exception
MessageBox.Show(ex.Message)
MessageBox.Show( "更新失败！ ")
End Try
comm.Dispose()
conn.Close()
End If
End If
If f5.RadioButton3.Checked Then
If Me.ComboBox1.Text = " " Then
MessageBox.Show( "请选择要交费的月份！ ")
Else
comm.CommandText = "update cost_mobilephone set [yu jiao]=[yu jiao]+ ' " + money2 + " ',[yu e]=[yu e]+ ' " + money1 + " ' where [mobile phone]= ' " + f5.TextBox1.Text + " ' or month= ' " + month + " ' "
Try
comm.ExecuteNonQuery()
MessageBox.Show( "更新成功！ ")
Catch ex As Exception
MessageBox.Show(ex.Message)
MessageBox.Show( "更新失败！ ")
End Try
comm.Dispose()
conn.Close()
End If
End If
End Sub
只能添加第一个 后面添加的都添加到第一个了
[解决办法]
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
'首先判断这个就不用写那么多遍了
If Me.ComboBox1.Text = " " Then
MessageBox.Show( "请选择要交费的月份！ ")
exit sub
endif
if RadioButton1.Checked=true Then comm.commandtext= "............... "
if RadioButton2.Checked=true Then comm.commandtext= "............... "
if RadioButton3.Checked=true Then comm.commandtext= "............... "
----测试时在此处先加一句 msgbox comm.commandtext
conn.open
Try
comm.ExecuteNonQuery()
MessageBox.Show( "更新成功！ ")
Catch ex As Exception
MessageBox.Show(ex.Message)
MessageBox.Show( "更新失败！ ")
End Try
conn.close
