如何在新行插入新的“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的值。