[求助]我想在每个子窗口的主键自动编号,有例子

msf

给你发个例子看看

'自动编号的代码
'Private Sub idh()
'    Dim rq, bh As String
'     Me.单据类型 = Me.OpenArgs
'        rq = Me.OpenArgs & Right(Format(Date, "yyyymmdd"), 5)
'    If IsNull(DLookup("[单据编号]", "单据", "LEFT([单据编号],7)='" & rq & "'")) Then
'         Me.单据编号 = rq & "01"
'    Else
'        bh = DMax("[单据编号]", "单据", "LEFT([单据编号],7)='" & rq & "'")
''        bh = DMax("[单据编号]", "单据", "[单据编号]like'" & rq & "%'")
'        Me.单据编号 = rq & Format(CStr(CInt(Right(bh, 2)) + 1), "00")
'   End If
'
' End Sub

[此贴子已经被作者于2006-3-5 18:44:56编辑过]

msf

照着上面的例子改改就行了