问题描述
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimConn1AsNewOleDbConnectionWith{.ConnectionString=Constr1}DimSqlstr1,sqlstr2AsStringDimCmd1AsNewOleDbCommandDimExpC,ExpEAsStringDimorm1AsNewForm1IfTrim(TextBox1.Text="")ThenExpC=""ElseExpC=Trim(TextBox1.Text)EndIfIfTrim(TextBox2.Text="")ThenExpE=""ElseExpE=Trim(TextBox2.Text)EndIfIfForm1.IsChnThenSqlstr1="updateTblChnsetChn='"&ComboBox1.Text&"',Chnexp='"&ExpC&"'whereID="&Form1.CurChnIDsqlstr2="updateTblEngsetEng='"&ComboBox2.Text&"',EngExp='"&ExpE&"'whereID="&IDs(ComboBox2.SelectedIndex)Exp(ComboBox2.SelectedIndex)=ExpEComboBox2.Items(ComboBox2.SelectedIndex)=ComboBox2.TextComboBox1.Items(0)=ComboBox1.TextElseSqlstr1="updateTblEngsetEng='"&ComboBox2.Text&"',Engexp='"&ExpE&"'whereID="&Form1.CurEngIDsqlstr2="updateTblChnsetChn='"&ComboBox1.Text&"',ChnExp='"&ExpC&"'whereID="&IDs(ComboBox1.SelectedIndex)Exp(ComboBox1.SelectedIndex)=ExpCComboBox1.Items(ComboBox1.SelectedIndex)=ComboBox1.TextComboBox2.Items(0)=ComboBox1.TextEndIfTryConn1.Open()Cmd1.Connection=Conn1Cmd1.CommandText=Sqlstr1Cmd1.ExecuteNonQuery()Cmd1.CommandText=sqlstr2Cmd1.ExecuteNonQuery()CatchexAsExceptionMsgBox(ex.Message)FinallyConn1.Dispose()Cmd1.Dispose()EndTryMsgBox("保存成功!")EndSub在单个项目文件都是好的,我把两个整合在调用了这个button以后出现了不存在此行此列的数据。是一个form里输入单词,要更改他,调用另一个form更改这个单词。
解决方案
解决方案二:
你调试一下, 看一下Sqlstr1,Sqlstr2串内容是否完整?