[khalidfs5]

(23-04-18, 01:02 PM)ملهمـ كتب : مدخل للدورة وتعريف بالبرنامج 

يوجدخطا عندي يظهر في الترقيم التلقائي ولا اجد له حل

كود :

code_name = 0
       Dim dt As New DataTable
       Dim da As New SqlClient.SqlDataAdapter("select * form " & tbname & "order by " & id_ & "", sqlconn)
       da.Fill(dt)
       If dt.Rows.Count <> 0 Then
           Dim i = dt.Rows.Count - 1
           code_name = Val(dt.Rows(i).Item(id_))

[aloush]

(26-07-19, 05:47 PM)khalidfs5 كتب :

(23-04-18, 01:02 PM)ملهمـ كتب : مدخل للدورة وتعريف بالبرنامج 

يوجدخطا عندي يظهر في الترقيم التلقائي ولا اجد له حل

كود :

code_name = 0
       Dim dt As New DataTable
       Dim da As New SqlClient.SqlDataAdapter("select * form " & tbname & "order by " & id_ & "", sqlconn)
       da.Fill(dt)
       If dt.Rows.Count <> 0 Then
           Dim i = dt.Rows.Count - 1
           code_name = Val(dt.Rows(i).Item(id_))

أخي الكريم أعتقد أنو الخطأ بسبب هذا الكود :  Dim i = dt.Rows.Count - 1
استبدله بهذا الكود و جرب :  Dim i as Integer = dt.Rows.Count - 1

[chawki92drt]

بارك الله فيكم

[chawki92drt]

من فضلك اخي الكود سورس يا ريت ترسلولي على ايملي الخاص CHAWKI191991@GMAIL.COM

[alabechichi]

من فضلك ولو تكرمت عليا اريد الكود سورس هادا ايميل
alabechichi@gmail.com

[zuha2020]

بارك الله فيك
شرح وافي وواضح

[zuha2020]

دورة في قمة الروعــــــــــة
شرح وافي وكافي ................ وسلس
بارك الله فيك وفي علمك وزادك من معينه ان شاء الله

[ameen123s]

(26-04-18, 03:39 AM)sendbad100 كتب : وعليكم السلام ورحمة الله وبركاتة 

شكرا لكل ما تقدمه 

ملاحظة على ملاحظتك    دام تعبت  وقمت بالشرح والتسجيل  الافضل  ترفع الدقة  الى 720  كي تكون اكثر وضوحاً.
  480  ما تنفع للاكواد  تطلع غير واضحة.

اسال الله ان  يكتب اجرك مضاعفاً

   '============الترقيم التلقائي========
        TXT_CODE.Text = CODE_GENE("IMPORTERS", "ID") + 1
        '=============================================
        ButtEdit.Enabled = False
        ButtDelete.Enabled = False
        DEBIT.Text = "0.000"
        CREDIT.Text = "0.000"
        TXT_MINES.Text = "0.000"
        TXT_NAME.Select()

اخي العزيز يظهر لي هذة الاخطاء ايش هو السبب نرجو المساعده ولكم جزيل الشكر

[ahmed20]

عند فتح المشروع تظهر لي هذه النافذه ممكن حل المشكله مشروع الدوره

[محمد كريّم]

نزل .NET Framework الإصدار 4.5

(18-03-20, 08:07 PM)ahmed20 كتب : عند فتح المشروع تظهر لي هذه النافذه ممكن حل المشكله مشروع الدوره