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

(20-07-18, 03:27 PM)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)

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

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

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

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

تحياتى لك

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

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

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

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

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

كود :

FrSell.Mdiparent = Me
FrSell.Show()

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

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

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

تحياتى لك

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