请教各位大神，请问子窗体里的行号怎么能实现自动生成并保存至对应的表里。

用主键自动编号不好么？
如果你只是想要在前一个行号上加1的话，在行号更新后和获得焦点两个事件中变量加1就好。
Option Compare Database
Dim HM As Long
Private Sub 行号_AfterUpdate()
HM = 行号.Text
End Sub
Private Sub 行号_GotFocus()
HM1 = 行号.Text
If HM1 = 0 Then
行号.Text = HM + 1
End If
End Sub