(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_))
(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
من فضلك اخي الكود سورس يا ريت ترسلولي على ايملي الخاص CHAWKI191991@GMAIL.COM
من فضلك ولو تكرمت عليا اريد الكود سورس هادا ايميل
alabechichi@gmail.com
بارك الله فيك
شرح وافي وواضح
دورة في قمة الروعــــــــــة
شرح وافي وكافي ................ وسلس
بارك الله فيك وفي علمك وزادك من معينه ان شاء الله
(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 كتب : [ -> ]عند فتح المشروع تظهر لي هذه النافذه ممكن حل المشكله مشروع الدوره