[احمد كبه]

السلام عليكم الاخوة الاعزاء لدي سؤال مهم بخصوص اداة الداتا كريد فيو ارجو من حضراتكم ان استطعتم ابداء المساعدة
سؤالي هو كالتالي::::


لدي قاعدة بيانات تحتوي ع 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

 اتمنى من حضراتكم حل المشكلة لو سمحتم

[asmarsou]

(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

[asmarsou]

(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