السلام عليكم الاخوة الاعزاء لدي سؤال مهم بخصوص اداة الداتا كريد فيو ارجو من حضراتكم ان استطعتم ابداء المساعدة
سؤالي هو كالتالي::::
لدي قاعدة بيانات تحتوي ع 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
اتمنى من حضراتكم حل المشكلة لو سمحتم
(28-11-22, 04:26 PM)احمد كبه كتب : [ -> ]السلام عليكم الاخوة الاعزاء لدي سؤال مهم بخصوص اداة الداتا كريد فيو ارجو من حضراتكم ان استطعتم ابداء المساعدة
سؤالي هو كالتالي::::
لدي قاعدة بيانات تحتوي ع 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
اتمنى من حضراتكم حل المشكلة لو سمحتم
و عليكم السلام و رحمة الله و بركاته
اليك بمثال مبسط و ظفه حسب المعطيات لديك
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
شكرا جزيلا استاذي العزيز لكن لا تزال هناك مشكلة و هي
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
(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