(10-08-18, 12:06 AM)Finish كتب : ضع شرط التحقق من ظهور العمود بين الحلقتين For i و For j

PHP كود :

For i As Integer = 0 To dgv1.Columns.Count - 1
    If dgv1.Columns(i).Visible = False Then Continue For
        For j As Integer = 0 To dgv1.Rows.Count - 1 


(09-08-18, 11:54 PM)Marwan9990 كتب : اسعد الله اوقاتكم جميعا احبائي 

استفسار  ي اخوان 
انا معي فورم يحتوي على جريد فيو يعرض لي بيانات من قاعدة بيانات اكسس 

استخدمة مع جريد فيو الموضوع التالي .. وهو خيار اخفاء او اظهار بعض الاعمده في جريد فيو
http://vb4arb.com/vb/showthread.php?tid=15554

لحد الحين كل شي حلو 
 ايضا معي في الفورم كود التالي .. وهو كود تصدير بيانات جريد فيو الى ملف اكسل 

PHP كود :

Try
            Dim MsExcel = CreateObject("Excel.Application")
            MsExcel.Workbooks.Add()
            For i As Integer = 0 To dgv1.Columns.Count - 1
                MsExcel.Cells(i + 1).Value = dgv1.Columns(i).HeaderText
            Next
            For i As Integer = 0 To dgv1.Columns.Count - 1
                For j As Integer = 0 To dgv1.Rows.Count - 1

                    MsExcel.Columns.HorizontalAlignment = 3
                    MsExcel.Columns.Font.Name = "Times New Roman"
                    MsExcel.Columns.EntireColumn.AutoFit()
                    MsExcel.Rows.Item(j + 1).Font.size = 13
                    MsExcel.Cells(j + 2, i + 1).Value = dgv1.Rows(j).Cells(i).Value

                Next
            Next
            MsExcel.Visible = True
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try 


المشكلة الان انا اقوم بعملية اخفاء بعض الاعمده بستخدام الموضوع وطريقة التي سبق وذكرتها في الاعلى 
ولكن لما اذهب اعمل تصدير لملف الاكسل يقوم بتصدير بيانات التي قمت ب اخفاها ايضا 

فما هو الحل ؟  ياليت اذا احد معه حل للمشكلة يفيدني ب طريقة او تعديل لكود تصدير بيانات لملف الاكسل بحيث لا يقوم بتصدير الاعمده التي اقوم باخفاها هيك احتاج تكون الطريقة 

مودتي للجميع

(10-08-18, 05:08 AM)elgokr كتب :

(09-08-18, 11:54 PM)Marwan9990 كتب : اسعد الله اوقاتكم جميعا احبائي 

استفسار  ي اخوان 
انا معي فورم يحتوي على جريد فيو يعرض لي بيانات من قاعدة بيانات اكسس 

استخدمة مع جريد فيو الموضوع التالي .. وهو خيار اخفاء او اظهار بعض الاعمده في جريد فيو
http://vb4arb.com/vb/showthread.php?tid=15554

لحد الحين كل شي حلو 
 ايضا معي في الفورم كود التالي .. وهو كود تصدير بيانات جريد فيو الى ملف اكسل 

PHP كود :

Try
            Dim MsExcel = CreateObject("Excel.Application")
            MsExcel.Workbooks.Add()
            For i As Integer = 0 To dgv1.Columns.Count - 1
                MsExcel.Cells(i + 1).Value = dgv1.Columns(i).HeaderText
            Next
            For i As Integer = 0 To dgv1.Columns.Count - 1
                For j As Integer = 0 To dgv1.Rows.Count - 1

                    MsExcel.Columns.HorizontalAlignment = 3
                    MsExcel.Columns.Font.Name = "Times New Roman"
                    MsExcel.Columns.EntireColumn.AutoFit()
                    MsExcel.Rows.Item(j + 1).Font.size = 13
                    MsExcel.Cells(j + 2, i + 1).Value = dgv1.Rows(j).Cells(i).Value

                Next
            Next
            MsExcel.Visible = True
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try 


المشكلة الان انا اقوم بعملية اخفاء بعض الاعمده بستخدام الموضوع وطريقة التي سبق وذكرتها في الاعلى 
ولكن لما اذهب اعمل تصدير لملف الاكسل يقوم بتصدير بيانات التي قمت ب اخفاها ايضا 

فما هو الحل ؟  ياليت اذا احد معه حل للمشكلة يفيدني ب طريقة او تعديل لكود تصدير بيانات لملف الاكسل بحيث لا يقوم بتصدير الاعمده التي اقوم باخفاها هيك احتاج تكون الطريقة 

مودتي للجميع

حتى ان لا تشتت على نفسك

فقط تعال على كود الاستعلام

وبدلاً من استخدام

كود :

SELECT *

فقط اجعلها

كود :

SELECT id, name1, name2

حيث ان الاسماء هى عبارة عن الاعمدة التى تحتاج الى ظهورها

وبكده ستوفر عدد اسطر من اخفاء الاعمدة فى الداتا جريد

وكذلك فى التصدير

تحياتى لك

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

(10-08-18, 12:46 PM)mrnooo2000 كتب : جرب هذا الكود أخى 

كود :

       Try
           Dim MsExcel = CreateObject("Excel.Application")
           MsExcel.Workbooks.Add()
           Dim C As Integer = 0
           For i As Integer = 0 To dgv1.Columns.Count - 1
               If dgv1.Columns(i).Visible = True Then
                   C += 1
                   MsExcel.Cells(C).Value = dgv1.Columns(i).HeaderText
               End If
           Next
           C = 0
           For i As Integer = 0 To dgv1.Columns.Count - 1
               If dgv1.Columns(i).Visible = False Then Continue For
               C += 1
               For j As Integer = 0 To dgv1.Rows.Count - 1
                   MsExcel.Columns.HorizontalAlignment = 3
                   MsExcel.Columns.Font.Name = "Times New Roman"
                   MsExcel.Columns.EntireColumn.AutoFit()
                   MsExcel.Rows.Item(j + 1).Font.size = 13
                   MsExcel.Cells(j + 2, C).Value = dgv1.Rows(j).Cells(i).Value
               Next
           Next
           MsExcel.Visible = True
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

(10-08-18, 07:32 PM)elgokr كتب :

الان الصورة كملت عن ما تريده بعد شرحك 

لماذا تعرض الاعمدة كاملاً

وكلاً من Finish و mrnooo2000 

ما قصر فى تقديم المساعدة الكاملة

فبارك الله لهم فيما يتم بتقديمه من مساعدة دائماً

فتحياتى لك ولهم

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