[محمد خيري]

السلام عليكم اخواني الكرام كيف يمكن تضبيط هذا الكود بحيث
اذا كان الجدول فارغ يظهر لي بالتاكست بوكس 1 الترقيم : 1-1500
و اذا كان الجدول غير فارغ ينضاف واحد كل مرة 2-1500 - 3-1500 - 4-1500 و هكذا
بارك الله فيكم 

 

كود :

 Dim Sql As String = "select IIF(MAX(Id) IS NULL, 1, MAX(Id)) As Id from document"
   Dim Cmd As New OleDbCommand(Sql, Con)
   Dim DA As New OleDbDataAdapter(Cmd)
   Dim DT As New DataTable
           DT.Clear()
           DA.Fill(DT)
           If IsDBNull(DT(0)(0)) = True Then
              TextBox1.Text = "1500" & "-" & "1"
           Else
              TextBox1.Text = "1500" & "-" & DT(0)(0) + 1
       End If