20-01-24, 12:42 AM
السلام عليكم اخواني الكرام كيف يمكن تضبيط هذا الكود بحيث
اذا كان الجدول فارغ يظهر لي بالتاكست بوكس 1 الترقيم : 1-1500
و اذا كان الجدول غير فارغ ينضاف واحد كل مرة 2-1500 - 3-1500 - 4-1500 و هكذا
بارك الله فيكم
اذا كان الجدول فارغ يظهر لي بالتاكست بوكس 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