已经知道开始和结束号
想得到结果

Private Sub Command1_Click()
SJK
Sql = "select * from [分散数据]"
RS.Open Sql, Cnn, adOpenKeyset, adLockOptimistic
RS.AddNew
For i = Int(Text1.Text) To Int(Text2.Text) Step 50
 maxid = Cnn.Execute(Sql).Fields(0).Value + 1
 If IsNull(maxid) Then maxid = 1
 
RS.Fields("开始号") = i
RS.Fields("结束号") = i + 49
RS.Fields("金额") = Trim(Combo1.Text)
RS.Fields("姓名") = Trim(Combo2.Text)
'maxid = maxid + 1
Next
RS.Update
RS.Close
Cnn.Close
Set RS = Nothing
Set Cnn = Nothing
MsgBox "成功写入数据"
End Sub

得到的结果确实

请老师帮助

[此贴子已经被作者于2022-10-3 00:01编辑过]

你的写法，我也没看懂，我是这样写的

老师，谢谢您的帮助，能否给个附件，我调试没成功，我的水平不行，还在拼凑代码状态

Private Sub Command1_Click()
SJK

Sql = "select * from [分散数据]"
RS.Open Sql, Cnn, adOpenKeyset, adLockOptimistic
For i = Int(Text1.Text) To Int(Text2.Text) Step 50
RS.AddNew
' maxid = Cnn.Execute(Sql).Fields(0).Value + 1
' If IsNull(maxid) Then maxid = 1
 
RS.Fields("开始号") = i
RS.Fields("结束号") = i + 49
RS.Fields("金额") = Trim(Combo1.Text)
RS.Fields("姓名") = Trim(Combo2.Text)
'maxid = maxid + 1
Next
RS.Update
RS.Close
Cnn.Close
Set RS = Nothing
Set Cnn = Nothing
MsgBox "成功写入数据"
End Sub
得到你表格的结果，但估计不是想要的东西。

[此贴子已经被作者于2022-11-27 11:14编辑过]

我也是初学的，不能称老师，你哪里不成功了

您谦虚了，能帮助别人的都是老师，现在就在这样，请您帮助

谢谢老师，是我需要的，谢谢你的帮助，我需要学习的地方太多了

这里写错了吧

哎，不认真啊，谢谢老师帮助，调试成功