(05-03-20, 11:40 PM)paveldida كتب : [ -> ] (05-03-20, 11:33 PM)عبد العزيز البسكري كتب : [ -> ]بالنسبة للطلب الأوّل ..
أخي الكريم .. ما يهمّك هو التفقيط بحد ذاته
مادام .. النقطة أو الفاصلة .. يظهر التفقيط بشكل عادي و لا تظهر رسالة الخطأ عند الغضط على هذه و أو على .. تلك
بالنسبة للطلب الثاني
قد تمّ إضافته بالمرفقات أدناه أخي الكريم
تحياتي
شكرا أخي على المساعدة ، السبب اني افضل اسعمال النقطة جهة الارقام
(05-03-20, 11:53 PM)محمد العامر كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
تم تحميل ملف العمل من موضوع الاخ [b]elgokr[/b]
http://vb4arb.com/vb/showthread.php?tid=28906
ويظهر خطأ في الجدول
ما هو الخطأ والحل
ولكن الموضوع الذي اشرت اليه لم يحتوي عمود صورة في الداتاجريد كما فعلت انت حسب صورةالخطأ التي منك
(06-03-20, 01:35 AM)alsalamoni كتب : [ -> ]ولكن الموضوع الذي اشرت اليه لم يحتوي عمود صورة في الداتاجريد كما فعلت انت حسب صورةالخطأ التي منك
ما يقصده alsalamoni ان المشروع الذى تتحدث عنه
لا يقوم باظهار عمود الذى تشير اليه بوجود الخطاء
وقد يكون اخفاء العمود تجنباً من ظهور تلك الرسالة مع الملفات من نوع اخر غير الصورة
لان من الطبيعي الداتا جريد يظهر الصورة بالعمود ولكن عند وجود ملف اخر من نوع اخر لم يتمكن من عرضه كا صورة
ومن ثم يظهر خطاء تلك الرسالة التى تشير اليها فمن الممكن انك قمت باظهار العمود بدلاً من اخفاء ذلك العمود
ولديك بالجدول ادخال بيانات عشوائي وليس مدخلات حقيقية ادى ان العمود غير قادر من ترجمة المدخل كونه من نوع صورة لعرضه
فقط كل ما عليك هو اعادة ادخال البيانات بقاعدة البيانات فعلياً وبهذا العمود صور وستجد بان المشكلة تم حلها مباشراً
الحمد الله تم حل المشكلة بالطريقة التاليه
إلغاء الكود المكتوب وإضافة البيانات عن طريق إرفاقها في
GridView
الان ظهر لي مشكلة جديده وهي عرض أول ملف مرفق في
GridView فقط يعني إذا أرفقط ملف أخر وقمت بفتحه يتم فتح أول ملف
GridView فقط.
[
attachment=24150]
وهذا هو الكود
كود :
' التحقق اذا كان الداتا جريد ممتلئة ام فارغة لتنفيذ كود فتح الملف
If (GridView1.RowCount > 0) Then
' تحويل الكود المسجل بقاعدة البيانات الى ملف
Dim ff() As Byte = CType(dt.Rows(DgId)(3), Byte())
Dim FPath = Application.StartupPath & "\" & dt.Rows(DgId)(1).ToString() & dt.Rows(DgId)(2).ToString()
Dim FFS As FileStream = New FileStream(FPath, FileMode.Create, FileAccess.Write)
FFS.Write(ff, 0, ff.Length)
FFS.Close()
' تنفيذ فتح الملف بعد انشائه بالكود السابق
Process.Start(FPath)
Else
' رسالة تنبيه بان الداتا جريد فارغة
MsgBox("Please Add Any Data So You Can Open File Selecte