14-12-18, 03:44 AM
(آخر تعديل لهذه المشاركة : 14-12-18, 03:58 AM {2} بواسطة asemshahen5.)
أبدل ال 50 بـ 1 في الاستعلام و ضع :
أي بالاستعلام :
كود :
Dim bignum As String =50 & ds.Tables(tb).Rows(0)(0).ToString()أي بالاستعلام :
كود :
Dim StrSQL As String = "Select IIF(Max(" & tbcode & ") Is NULL,1,Max(" & tbcode & ")+1) From " & tb & ""سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر