تقييم الموضوع :
  • 2 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
دورة إنشاء برنامج مبيعات متكامل
(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_))
الرد }}}
تم الشكر بواسطة: asemshahen5
(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
الرد }}}
تم الشكر بواسطة: asemshahen5
بارك الله فيكم
الرد }}}
تم الشكر بواسطة: asemshahen5
من فضلك اخي الكود سورس يا ريت ترسلولي على ايملي الخاص CHAWKI191991@GMAIL.COM
الرد }}}
تم الشكر بواسطة:
من فضلك ولو تكرمت عليا اريد الكود سورس هادا ايميل
alabechichi@gmail.com
الرد }}}
تم الشكر بواسطة:
بارك الله فيك
شرح وافي وواضح
الرد }}}
تم الشكر بواسطة:
دورة في قمة الروعــــــــــة
شرح وافي وكافي ................ وسلس
بارك الله فيك وفي علمك وزادك من معينه ان شاء الله
الرد }}}
تم الشكر بواسطة: sofiane-phy
(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()

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


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
نزل .NET Framework الإصدار 4.5


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

الرد }}}
تم الشكر بواسطة: ahmed20 , عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] دورة تعليم الفيجوال بيسك- جملة التكرار do loop mohamed2316 0 125 22-02-24, 12:32 AM
آخر رد: mohamed2316
  [VB.NET] دورة لانشاء برنامج ادارة مدارس مع قاعدة بيانات Sql aljzazy 0 145 17-02-24, 05:09 PM
آخر رد: aljzazy
  [VB.NET] برنامج صانع الاكواد الاصدار الرابع aljzazy 31 33,708 15-02-24, 02:45 PM
آخر رد: ausama.balaid
  دورة تعليم الفيجوال بيسكvisual Basic.net course mohamed2316 1 1,165 18-11-23, 09:38 PM
آخر رد: DJATV85
  دورة كيفية تصميم برنامج محاسبة VB.NET+SQL محاسب يوسف 7 36,941 01-08-23, 05:25 PM
آخر رد: ibrahimibrahim
  [اقتراح] استفسار انشاء برنامج الفاتوره الالكترونيه asseriano 3 3,505 26-07-23, 07:43 PM
آخر رد: ibrahimibrahim
  [سلسلة تعليمية] دورة الرسم ثلاثى الابعاد فى فيحوال بيسك رمضان272 2 2,007 26-03-23, 09:40 PM
آخر رد: رمضان272
Star [VB.NET] برنامج صانع الاكواد لقواعد بيانات نوع الاكسس aljzazy 17 26,046 23-02-23, 03:49 AM
آخر رد: mohamed81
  [كورس] دورة تصميم وبرمجة برنامج صانع الاكواد aljzazy 1 1,071 03-01-23, 09:24 PM
آخر رد: Taha Okla
Video [سلسلة تعليمية] دورة انشاء برنامج مبيعات شامل فيجوال + قاعدة بيانات SQL aljzazy 12 14,283 24-10-22, 02:06 AM
آخر رد: b97er

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم