DM API O
BJECTS
123
PCDSQL
Public oNextKey As New
Private Sub cbCancel_Click()
Unload NextKeyForm
End Sub
Private Sub cbNextKey_Click()
Dim sResult As String
sResult = oNextKey.
GetNextKey
("")
txtNextKey.Text = sResult