[atef_020]

ممكن اخى الكريم الجوكر تعدل فى المشروع لاننى مش فاهم اللى حضرتك تقصدة 

[elgokr]

(20-07-18, 03:27 PM)atef_020 كتب :

ممكن اخى الكريم الجوكر تعدل فى المشروع لاننى مش فاهم اللى حضرتك تقصدة 

فى البداية قم بالتعديل على الكود لتجعله كما فى الصورة

الكود المستخدم

كود :

           Dim DS As New DataSet
           '=========== ربط تفاصيل الفاتورة =============
           DA = New OleDb.OleDbDataAdapter("SELECT * FROM Sell_Detl WHERE BUYCODE = val('" & CODE_ & "')", CON)
           DS = New DataSet
           DA.Fill(DS)
           DT = DS.Tables(0)
           dgv.DataSource = DT
           BUTTDELETE.Enabled = True
           BUTTSAVE.Enabled = False

ثانياً بعد اتمام التعديل كما فى الصورة

عند فتح شاشة (FrSell)

عند الضغط على زر بحث

عند اتمام الضغط على زر عرض لاى رقم فاتورة

اتمنى ان توضيح استخدام الكود

والصورة الموضحة بالشرح يكون موضح حل المشكلة

تحياتى لك

وتمنياتى لك التوفيق

[atef_020]

(20-07-18, 05:32 PM)elgokr كتب :

(20-07-18, 03:27 PM)atef_020 كتب :

ممكن اخى الكريم الجوكر تعدل فى المشروع لاننى مش فاهم اللى حضرتك تقصدة 

فى البداية قم بالتعديل على الكود لتجعله كما فى الصورة

الكود المستخدم

كود :

           Dim DS As New DataSet
           '=========== ربط تفاصيل الفاتورة =============
           DA = New OleDb.OleDbDataAdapter("SELECT * FROM Sell_Detl WHERE BUYCODE = val('" & CODE_ & "')", CON)
           DS = New DataSet
           DA.Fill(DS)
           DT = DS.Tables(0)
           dgv.DataSource = DT
           BUTTDELETE.Enabled = True
           BUTTSAVE.Enabled = False

ثانياً بعد اتمام التعديل كما فى الصورة

عند فتح شاشة (FrSell)

عند الضغط على زر بحث

عند اتمام الضغط على زر عرض لاى رقم فاتورة

اتمنى ان توضيح استخدام الكود

والصورة الموضحة بالشرح يكون موضح حل المشكلة

تحياتى لك

وتمنياتى لك التوفيق

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

قمت بتعديل قاعدة البيانات من جديد 

   

وقمت باضافة التعديل كما يظهر بالصورة 

   

ولكن النتيجة كما هى لا يظهر لا راس الفاتورة ولا تفاصيلها 

ممكن اذا سمت تقولى حضرتك قمت بالتعديل فى قاعدة البيانات او ماذا عدلت لكى تظهر عندك 

وومكن لو ارسلت لى المشروع بعد التعديل

وجزاك الله عنا خيرا 

[atef_020]

انا فى انتظار حل مشكلتى اخى الكريم [b]elgokr جزاك الله خيرا [/b]

[elgokr]

السبب لديك هو كونك تقوم بفتح الفروم

كما لو انك تقوم بتطبيق كود من مشروع C#

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

كود :

FrSell.Mdiparent = Me
FrSell.Show()

وطبق ذلك على باقي زر فتح الفورم الاخرى فى القائمة

خلاف انك شبه مبهدل المشروع لديك كما لو انه متاهة للملفات

على اى حال تم ارسال ملف المشروع به التعديل

تحياتى لك

وتمنياتى لك التوفيق

[atef_020]

(21-07-18, 05:46 PM)elgokr كتب :

السبب لديك هو كونك تقوم بفتح الفروم

كما لو انك تقوم بتطبيق كود من مشروع C#

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

كود :

FrSell.Mdiparent = Me
FrSell.Show()

وطبق ذلك على باقي زر فتح الفورم الاخرى فى القائمة

خلاف انك شبه مبهدل المشروع لديك كما لو انه متاهة للملفات

على اى حال تم ارسال ملف المشروع به التعديل

تحياتى لك

وتمنياتى لك التوفيق

اشتغل تمام اخى الكريم  تسلم واسف انى اتعبتك معى 

جزاك الله خيرا 

[elgokr]

لا يوجد اى تعب اخى الحبيب

والشكر لله

تحياتى لك

وتمنياتى لك التوفيق

[atefkhalf2004]

السيد الفاضل
اين رابط المشروع ؟؟؟؟؟؟؟