[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
مش قابلها مطلقا باعرفش شو علاقته مع كود الترحيل الي اكسل والله ما انا فاهم اشي

[عبد العزيز البسكري]

(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
مش قابلها مطلقا باعرفش شو علاقته مع كود الترحيل الي اكسل والله ما انا فاهم اشي

http://vb4arb.com/vb/showthread.php?tid=28376

[elgokr]

المشكلة فقط ستكون فى تكرار نفس السطر بنفس الحدث

لذلك لا يقبل ويظهر الخطاء بهذا السطر

بمجرد تغيير dt الى dt1 مثلاً سيتم حل المشكلة

هذا ما يمكننى افادتك به حالياً

بسبب عدم وجود الكود كاملاً او ارفاق المثال لتوضيح اين الخطاء تماماً

تحياتى لك

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