[Rabeea Qbaha]

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

على كلن اعتمدت هذة الطريقه :

PHP كود :

For Each dc In datatableMain.Columns
                colIndex = colIndex + 1

                Select Case dc.ColumnName
                    Case "id"
                        oSheet.Cells(rowIndex + 1, colIndex) = "الرقم"
                    Case "p_id"
                        oSheet.Cells(rowIndex + 1, colIndex) = "رقم الصنف"
                    Case "p_name"
                        oSheet.Cells(rowIndex + 1, colIndex) = "أسم الصنف"
                    Case "p_size"
                        oSheet.Cells(rowIndex + 1, colIndex) = "الحجم"
                    Case "p_m_price"
                        oSheet.Cells(rowIndex + 1, colIndex) = "سعر المتر"
                    Case "p_price"
                        oSheet.Cells(rowIndex + 1, colIndex) = "السعر"
                    Case "date"
                        oSheet.Cells(rowIndex + 1, colIndex) = "تاريخ الحركة"
                    Case "note"
                        oSheet.Cells(rowIndex + 1, colIndex) = "الملاحظات"
                    Case Else
                        oSheet.Cells(rowIndex + 1, colIndex) = dc.ColumnName
                End Select
            Next