本文探讨了一个VBA程序中DO-WHILE循环未能按预期工作的问题。该程序试图更新数据库中的记录并插入新条目，但循环条件没有生效。文中提供了完整的代码示例，帮助读者理解问题所在。
Private Sub add123_Click()
x = Val(DataGrid1)
Adodc1.Recordset.MoveLast
Set cmd.ActiveConnection = conn
Do While y > x + 1
y = Val(DataGrid1)
z = y + 1
cmd.CommandText = "update 传动轴参数表 set 传动轴号='" & z & "' where 传动轴号='" & y & " '"
cmd.Execute
Adodc1.Recordset.MovePrevious
Loop
cmd.CommandText = "insert into 传动轴参数表('传动轴号','l1','l2','导程') values('" & y & "',0,0,0)"
cmd.Execute
Adodc1.Refresh
End Sub
那里出错了呢,发现do ---while 语句没起到作用,为什么呢
扫一扫
1176
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
