(08-05-19, 04:25 PM)nooralcown كتب : يا شباب اشتغلت الكود تمام  واشتغل  
اجيت اضيف نفس الكود في فورم جديد  
طلع خطا مع الكود التالي 

            Dim sql As String = "select(zepon.num)as x1,(zepon.name) as x2,zepon.phone as x3 ,(zepon.bransh ) as x4,(dailywassel.zepon) ,sum(dailywassel.amount) as x5  ,sum(dailywassel.quentity)as x6 from zepon right join dailywassel on zepon.num =dailywassel . zepon   group by  (dailywassel.zepon),(zepon.num),(zepon.name) ,(zepon.bransh ),zepon.phone order by dailywassel.zepon "
            '(dailywassel.date),
            Dim sqlcommand As New SqlCommand(sql, Con)

            Dim sqladapter = New SqlDataAdapter(sqlcommand)
            Dim dt As New DataTable


اخر سطر هو المشكلة       Dim dt As New DataTable
مش قابلها مطلقا باعرفش شو علاقته مع كود الترحيل الي اكسل والله ما انا فاهم اشي