منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم 

قمت بانشاء وظيفة لاضافة سريال نمبر لكل فاتورة بيع 

السريال يعتمد علي قيمة ثابتة مثلا 50  او   we   مثلا  
وبعد ذالك يضاف رقم 1 ويجمع علي اخر رقم لكل فاتورة يتم طباعتها 
يبقي اول قيمة لاول فاتورة 501  و 502  و 503  وهكذا مع شرط وجود رقم 50 اول الفاتورة 
يبقي اول قيمة لاول فاتورة we1  و we2  و we3  وهكذا مع شرط وجود رقم 50 اول الفاتورة 
استخدمت الوظيفة كالاتي ظلت تعمل الي قيمة 5010 وتوقفت عن التزايد عند القيمة 5010 لا اعلم ما سبب وقوف الوظيفة عن العمل اذا كانت تعمل في البدايةبدون مشاكل

أو
أو

(13-12-18, 10:49 PM)asemshahen5 كتب : [ -> ]

كود :

   Public Function serial(ByVal ds As DataSet, ByVal tb As String, ByVal tbcode As String) As String
       Dim cn As New SqlConnection("Server =(local);database=ALASEM2;integrated security=True")
       ClearTools()
       Dim StrSQL As String = "Select IIF(Max(" & tbcode & ") Is NULL,50,Max(" & tbcode & ")+1) From " & tb & ""
       Dim StrTableName As String = "CASTOMER"
       Dim da As New SqlDataAdapter(StrSQL, cn)
       ds.Clear()
       da.Fill(ds, StrTableName)
       Dim bignum As String = ds.Tables(StrTableName).Rows(0)(0).ToString()
       serial = bignum
   End Function

أو

كود :

Dim StrSQL As String = "Select IIF(Max(ID) Is NULL,50,Max(ID)+1) From CASTOMER"
       Dim cn As New SqlConnection("Server =(local);database=ALASEM2;integrated security=True")
       Dim StrTableName As String = "CASTOMER"
       Dim da As New SqlDataAdapter(StrSQL, cn)
       Dim dt As New DataSet
       da.Fill(dt, StrTableName)
       Txt_ID.Text = dt.Tables(StrTableName).Rows(0)(0).ToString()

أو

كود :

Public Function serial1(ByVal dt As DataSet, ByVal tb As String, ByVal tbcode As String) As String
       Dim bignum As String = CType(dt.Tables(tb).Compute("Max(" & tbcode & ")+1", tbcode & " >= 0"), String)
       serial1 = bignum
   End Function

بشكرك علي ردك ومتابعتك الموضوع اسمح لي دقائق 
هجرب ورد عليك

---

(13-12-18, 10:49 PM)asemshahen5 كتب : [ -> ]

كود :

   Public Function serial(ByVal ds As DataSet, ByVal tb As String, ByVal tbcode As String) As String
       Dim cn As New SqlConnection("Server =(local);database=ALASEM2;integrated security=True")
       ClearTools()
       Dim StrSQL As String = "Select IIF(Max(" & tbcode & ") Is NULL,50,Max(" & tbcode & ")+1) From " & tb & ""
       Dim StrTableName As String = "CASTOMER"
       Dim da As New SqlDataAdapter(StrSQL, cn)
       ds.Clear()
       da.Fill(ds, StrTableName)
       Dim bignum As String = ds.Tables(StrTableName).Rows(0)(0).ToString()
       serial = bignum
   End Function

أو

كود :

Dim StrSQL As String = "Select IIF(Max(ID) Is NULL,50,Max(ID)+1) From CASTOMER"
       Dim cn As New SqlConnection("Server =(local);database=ALASEM2;integrated security=True")
       Dim StrTableName As String = "CASTOMER"
       Dim da As New SqlDataAdapter(StrSQL, cn)
       Dim dt As New DataSet
       da.Fill(dt, StrTableName)
       Txt_ID.Text = dt.Tables(StrTableName).Rows(0)(0).ToString()

أو

كود :

Public Function serial1(ByVal dt As DataSet, ByVal tb As String, ByVal tbcode As String) As String
       Dim bignum As String = CType(dt.Tables(tb).Compute("Max(" & tbcode & ")+1", tbcode & " >= 0"), String)
       serial1 = bignum
   End Function

طيب انا عدلت الوظيفة كالاتي :-
علي اساس جملة الاتصال للبرنامج عامة con


الي بيحصل كالاتي 

الاكواد عندي زادت  من  509  الي 510   وانا اريد تثبيت قيمة الخمسين لعملية البحث عن الفاتورة .
 فاصبحت هنا حاجة مختلفة 51  بدلا من 5010  

انا عايز 509 تبقي 5010 و 5011 و 5012 وهكذا 
بردك عند 5099  تبقي 50100 وهكذا 

ما اريدة بدون اطالة  الخمسين ثابت لايتغير ويضاف 1 الي مابعدة

أبدل ال 50 بـ 1 في الاستعلام و ضع :

---

أي بالاستعلام :

(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 & ""

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