What should I do if the ID field number is automatically +1 when adding a new record?

londy00

DataSet11.Tables("Application Form").Select("","ID Desc").GetValue(0).Item("ID") + 1

newmars

Select("","ID Desc") What's in the first double quote here, please help me, thank you!
Newbie

londy00

Back upstairs, it should be to write some simple expressions to narrow the scope of looking for ROW, just like writing the where statement after the SQL statement. For example, DataSet11.Tables("application form").Select("ID = '111' And name ='AAA'"), the row set should be found.

身材正

Create a new table to store the current largest id,

荣誉吹吹

This is a practical project we just learned. ID is C followed by three digits. You can follow the following pattern to form the code you need, I hope it will help you. This table is arranged by ID number.
Dim custid, custidval As String
        dt = DataSet11.Tables("CustomerTracking")'Assign the tables in the data set to dt
        len = dt.Rows.Count-1'dt.row.count represents the number of rows in the dt table
        dr = dt.Rows(len)'Give the last row of the dt table to dr
        custid = dr("CustID")'Give the "CustID" in dr to custid
        custidval = Mid(custid, 2, 3)'Go to the last three digits
        ctr = CInt(custidval)'Convert to a numeric value and remove the leading 0
        If ctr >= 1 And ctr <9 Then
            ctr = ctr + 1
            txtcustid.Text = "C00"&ctr
        ElseIf ctr >= 9 And ctr <99 Then
            ctr = ctr + 1
            txtcustid.Text = "C0"&ctr
        ElseIf ctr >= 99 And ctr <999 Then
            ctr = ctr + 1
            txtcustid.Text = "C"&ctr
        End If

newmars

Back upstairs, your method is just to find the ID, there is no cleverness, it is just a display problem.
3Qlondy00's reply.