08-05-19, 04:25 PM
يا شباب اشتغلت الكود تمام واشتغل
اجيت اضيف نفس الكود في فورم جديد
طلع خطا مع الكود التالي
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
مش قابلها مطلقا باعرفش شو علاقته مع كود الترحيل الي اكسل والله ما انا فاهم اشي
اجيت اضيف نفس الكود في فورم جديد
طلع خطا مع الكود التالي
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
مش قابلها مطلقا باعرفش شو علاقته مع كود الترحيل الي اكسل والله ما انا فاهم اشي