+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : بخصوص الداتاكريد فيو (/showthread.php?tid=44389)
بخصوص الداتاكريد فيو - احمد كبه - 28-11-22
السلام عليكم الاخوة الاعزاء لدي سؤال مهم بخصوص اداة الداتا كريد فيو ارجو من حضراتكم ان استطعتم ابداء المساعدة
سؤالي هو كالتالي::::
لدي قاعدة بيانات تحتوي ع 1000 سجل ...
وكذلك لدي فولدر يحتوي ع 1000 ملف pdf في مسار معين
اريد عند الضغط ع الخلية الاولى .. تفتح الملف الاول
و عند الضغط ع الخلية الثانية.. تفتح الملف الثاني
اريد عند الضغط ع الخلية الثالثة.. تفتح الملف الثالث .... وهكذا
علما اني استعملت الكود التالي لكن مشكلة الكود عند الضغط ع الخلية الاولى .. سوف يفتح جميع الملفات التي في الفولدر مرة واحدة
Private Sub DGV_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV.CellClick
Dim dd As String() = Directory.GetFiles(path)
For Each f As String In dd
System.Diagnostics.Process.Start(f)
Next
End Sub
اتمنى من حضراتكم حل المشكلة لو سمحتم
RE: بخصوص الداتاكريد فيو - asmarsou - 30-11-22
(28-11-22, 04:26 PM)احمد كبه كتب : السلام عليكم الاخوة الاعزاء لدي سؤال مهم بخصوص اداة الداتا كريد فيو ارجو من حضراتكم ان استطعتم ابداء المساعدةو عليكم السلام و رحمة الله و بركاته
سؤالي هو كالتالي::::
لدي قاعدة بيانات تحتوي ع 1000 سجل ...
وكذلك لدي فولدر يحتوي ع 1000 ملف pdf في مسار معين
اريد عند الضغط ع الخلية الاولى .. تفتح الملف الاول
و عند الضغط ع الخلية الثانية.. تفتح الملف الثاني
اريد عند الضغط ع الخلية الثالثة.. تفتح الملف الثالث .... وهكذا
علما اني استعملت الكود التالي لكن مشكلة الكود عند الضغط ع الخلية الاولى .. سوف يفتح جميع الملفات التي في الفولدر مرة واحدة
Private Sub DGV_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV.CellClickDim dd As String() = Directory.GetFiles(path)For Each f As String In ddSystem.Diagnostics.Process.Start(f)
Next
End Sub
اتمنى من حضراتكم حل المشكلة لو سمحتم
اليك بمثال مبسط و ظفه حسب المعطيات لديك
PHP كود :
Imports System.IO
Public Class Form1
Dim Path = "D:\test"
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim fileFullNames() As String = Directory.GetFiles(Path)
For Each file As String In Directory.GetFiles(Path, "*.pdf*")
DataGridView1.Rows.Add(file)
Next
End Sub
Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
System.Diagnostics.Process.Start(DataGridView1.CurrentCell.Value)
End Sub
End Class
RE: بخصوص الداتاكريد فيو - احمد كبه - 05-12-22
شكرا جزيلا استاذي العزيز لكن لا تزال هناك مشكلة و هي
System.InvalidOperationException
HResult=0x80131509
Message=Rows cannot be programmatically added to the DataGridView's rows collection when the control is data-bound.
Source=System.Windows.Forms
RE: بخصوص الداتاكريد فيو - asmarsou - 05-12-22
(05-12-22, 04:02 PM)احمد كبه كتب : شكرا جزيلا استاذي العزيز لكن لا تزال هناك مشكلة و هيجرب ما يلي بذات المثال
System.InvalidOperationException
HResult=0x80131509
Message=Rows cannot be programmatically added to the DataGridView's rows collection when the control is data-bound.
Source=System.Windows.Forms
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
For Each file As String In Directory.GetFiles(Path, "*.pdf*")
DataGridView1.Rows.Add(file)
Next
Catch ex As Exception
End Try
End Sub
و اما اذا كانت عكس ذلك اي تحوي عدة اعمدة و كمثال آخر و اعتبارا انها ذات 3 اعمدة مثلا يمكنك تعبئتها كما يلي
PHP كود :
For Each file As String In Directory.GetFiles(Path, "*.pdf*")
Dim row As String() = New String() {"", file, ""}
DataGridView1.Rows.Add(row)
Next