09-08-18, 11:54 PM
اسعد الله اوقاتكم جميعا احبائي
استفسار ي اخوان
انا معي فورم يحتوي على جريد فيو يعرض لي بيانات من قاعدة بيانات اكسس
استخدمة مع جريد فيو الموضوع التالي .. وهو خيار اخفاء او اظهار بعض الاعمده في جريد فيو
http://vb4arb.com/vb/showthread.php?tid=15554
لحد الحين كل شي حلو
ايضا معي في الفورم كود التالي .. وهو كود تصدير بيانات جريد فيو الى ملف اكسل
المشكلة الان انا اقوم بعملية اخفاء بعض الاعمده بستخدام الموضوع وطريقة التي سبق وذكرتها في الاعلى
ولكن لما اذهب اعمل تصدير لملف الاكسل يقوم بتصدير بيانات التي قمت ب اخفاها ايضا
فما هو الحل ؟ ياليت اذا احد معه حل للمشكلة يفيدني ب طريقة او تعديل لكود تصدير بيانات لملف الاكسل بحيث لا يقوم بتصدير الاعمده التي اقوم باخفاها هيك احتاج تكون الطريقة
مودتي للجميع
استفسار ي اخوان
انا معي فورم يحتوي على جريد فيو يعرض لي بيانات من قاعدة بيانات اكسس
استخدمة مع جريد فيو الموضوع التالي .. وهو خيار اخفاء او اظهار بعض الاعمده في جريد فيو
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
المشكلة الان انا اقوم بعملية اخفاء بعض الاعمده بستخدام الموضوع وطريقة التي سبق وذكرتها في الاعلى
ولكن لما اذهب اعمل تصدير لملف الاكسل يقوم بتصدير بيانات التي قمت ب اخفاها ايضا
فما هو الحل ؟ ياليت اذا احد معه حل للمشكلة يفيدني ب طريقة او تعديل لكود تصدير بيانات لملف الاكسل بحيث لا يقوم بتصدير الاعمده التي اقوم باخفاها هيك احتاج تكون الطريقة
مودتي للجميع