VB更新两个表时，第一回可以，但第二次操作时表2就少了
VB更新两个表时，第一次可以，但第二次操作时表2就少了。
Sub openconnection3()
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\¹¤×Êϵͳ\gzb.mdb;Persist Security Info=False"
Adodc3.RecordSource = "select * from " & Text3.Text + "1" + Text1.Text + Text2.Text & ""
Adodc3.Refresh
Adodc3.Recordset.MoveFirst
Do While Adodc3.Recordset.EOF = False
Adodc3.Recordset.Fields("mm").Value = Text2.Text
Adodc3.Recordset.Update
Adodc3.Recordset.MoveNext
Loop
Adodc3.Refresh
End Sub
Sub openconnection4()
Adodc4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\¹¤×Êϵͳ\gzb.mdb;Persist Security Info=False"
Adodc4.RecordSource = "select * from " & Text3.Text + "2" + Text1.Text + Text2.Text & ""
Adodc4.Refresh
If Adodc4.Recordset.EOF = False Then
Adodc4.Recordset.MoveFirst
End If
Do While Adodc4.Recordset.EOF = False
Adodc4.Recordset.Fields("mm").Value = Text2.Text
Adodc4.Recordset.Update
Adodc4.Recordset.MoveNext
Loop
Adodc4.Refresh
End Sub
如：text2.text=04时，第一次表1、表2都可以修改mm 为04，但第二次操作时，表1可以，但表2操作的结果是03，少了01。重新启动后，又可以了。谢谢高人指点。
------解决方案--------------------
Sub openconnection3()
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\¹¤×Êϵͳ\gzb.mdb;Persist Security Info=False"
Adodc3.RecordSource = "select * from " & Text3.Text + "1" + Text1.Text + Text2.Text & ""
Adodc3.Refresh
Adodc3.Recordset.MoveFirst
Do While Adodc3.Recordset.EOF = False
Adodc3.Recordset.Fields("mm").Value = Text2.Text
Adodc3.Recordset.Update
Adodc3.Recordset.MoveNext
Loop
Adodc3.Refresh
End Sub
没有操作Sub openconnection4() ，例如：text2=04,但表2也更新了,mm为03只过过小了01（我就奇怪，没有操作表2的内容，但也更新了表2，只不过少了01）
------解决方案--------------------
表1和表2设置了数据库关系吧， 自动联动更新了？
------解决方案--------------------
你openconnection3和openconnection4在这里的代码不同
If Adodc4.Recordset.EOF = False Then
Adodc4.Recordset.MoveFirst
End If
你把两段代码都变成一样的看看。然后就是单步
再说了
"如：text2.text=04时，第一次表1、表2都可以修改mm 为04，但第二次操作时，表1可以，但表2操作的结果是03，少了01。重新启动后，又可以了。谢谢高人指点。"
你要更新04。无论如何表2里面也不能有结果03阿？这点描述的不太清楚，让人看不明白
------解决方案--------------------
clear_zero “然后是什么意思？”
我真想不明白，表1操作一点问题都没有，但表2的mm怎么都不能修改为text2
------解决方案--------------------
clear_zero “然后就是单步”是什么意思？
------解决方案--------------------
谢谢大家了，原来其他地方出了问题。问题解决了！
Sub openconnection3()
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\¹¤×Êϵͳ\gzb.mdb;Persist Security Info=False"
Adodc3.RecordSource = "select * from " & Text3.Text + "1" + Text1.Text + Text2.Text & ""
Adodc3.Refresh
Adodc3.Recordset.MoveFirst
Do While Adodc3.Recordset.EOF = False
Adodc3.Recordset.Fields("mm").Value = Text2.Text
Adodc3.Recordset.Update
Adodc3.Recordset.MoveNext
Loop
Adodc3.Refresh
End Sub
Sub openconnection4()
Adodc4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\¹¤×Êϵͳ\gzb.mdb;Persist Security Info=False"
Adodc4.RecordSource = "select * from " & Text3.Text + "2" + Text1.Text + Text2.Text & ""
Adodc4.Refresh
If Adodc4.Recordset.EOF = False Then
Adodc4.Recordset.MoveFirst
End If
Do While Adodc4.Recordset.EOF = False
Adodc4.Recordset.Fields("mm").Value = Text2.Text
Adodc4.Recordset.Update
Adodc4.Recordset.MoveNext
Loop
Adodc4.Refresh
End Sub
如：text2.text=04时，第一次表1、表2都可以修改mm 为04，但第二次操作时，表1可以，但表2操作的结果是03，少了01。重新启动后，又可以了。谢谢高人指点。
------解决方案--------------------
Sub openconnection3()
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\¹¤×Êϵͳ\gzb.mdb;Persist Security Info=False"
Adodc3.RecordSource = "select * from " & Text3.Text + "1" + Text1.Text + Text2.Text & ""
Adodc3.Refresh
Adodc3.Recordset.MoveFirst
Do While Adodc3.Recordset.EOF = False
Adodc3.Recordset.Fields("mm").Value = Text2.Text
Adodc3.Recordset.Update
Adodc3.Recordset.MoveNext
Loop
Adodc3.Refresh
End Sub
没有操作Sub openconnection4() ，例如：text2=04,但表2也更新了,mm为03只过过小了01（我就奇怪，没有操作表2的内容，但也更新了表2，只不过少了01）
------解决方案--------------------
表1和表2设置了数据库关系吧， 自动联动更新了？
------解决方案--------------------
你openconnection3和openconnection4在这里的代码不同
If Adodc4.Recordset.EOF = False Then
Adodc4.Recordset.MoveFirst
End If
你把两段代码都变成一样的看看。然后就是单步
再说了
"如：text2.text=04时，第一次表1、表2都可以修改mm 为04，但第二次操作时，表1可以，但表2操作的结果是03，少了01。重新启动后，又可以了。谢谢高人指点。"
你要更新04。无论如何表2里面也不能有结果03阿？这点描述的不太清楚，让人看不明白
------解决方案--------------------
clear_zero “然后是什么意思？”
我真想不明白，表1操作一点问题都没有，但表2的mm怎么都不能修改为text2
------解决方案--------------------
clear_zero “然后就是单步”是什么意思？
------解决方案--------------------
谢谢大家了，原来其他地方出了问题。问题解决了！