如何在新行插入新的「Id」時開始編號？

Question

*我有一些代碼自動編號*

Sub AutoCount() 
     Dim daC As New SqlDataAdapter("select Max(couttime) From TbCourse where cusid='" & txtcustomerid.Text & "' ", conn) 
     Dim dsC As New DataSet 
     daC.Fill(dsC, "Course") 
     dsC.Tables(0).Clear() 
     daC.Fill(dsC, "Course") 
     txtcounttime.Text = Format(CInt(dsC.Tables(0).Rows(0).Item(0)) + 1, "0") 
    End Sub 

而且我有表例：

Answer 1

你需要檢查，是否有給定cusid中的任何條目，如果沒有它會返回1 （如果代碼爲+1，則爲0），如果給出的cusid存在，它將返回最大值爲cusid

IF NOT EXISTS (SELECT cusid FROM TbCourse WHERE cusid = 'COL2') 
    SELECT 1 AS couttime 
ELSE 
    SELECT MAX(couttime) AS couttime FROM TbCourse WHERE cusid = 'COL2' 

這裏COL2是txtcustomerid.Text的值。