[محمد اسماعيل]

(14-12-18, 03:44 AM)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 & ""

أسال الله العظيم ان يحفظك من كل مكروة او كرب.
تم الحل إنشاء الله .