新しい行を挿入し、新しい "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 

コードオートナンバーていると私は表例がありますいない、それは1が返されます場合は、

あなたがチェックする必要があり

Answer 1

、cusid特定のための任意のエントリがあります（コード内で+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の値です。