28-03-14, 10:20 PM
السادة الافاضل
استخدم الكود التالي في الطباعة من خلال اكسيل
لكن ظهرت مشكلة لو ان عدد الاصناف تعدي 32 صنف
عايز اجميع عمود 2 كل ما زاد عدد الاسطر عن 32 سطر ويسمي ناتج الجمع ماقبله
اي
For i = 0 To ds.Tables("invodet").Rows.Count - 1
for j=1 to 32
next j
next i
وهذا هو الكود المستخدم في الطباعة
For i = 0 To ds.Tables("invodet").Rows.Count - 1
xlw.Worksheets("sheet1").Cells(i + 6, 1) = i + 1
xlw.Worksheets("sheet1").Cells(i + 6, 1).HorizontalAlignment = 3
xlw.Worksheets("sheet1").Cells(i + 6, 1).VerticalAlignment = 3
xlw.Worksheets("sheet1").Cells(i + 6, 2) = ds.Tables("invodet").Rows(i).Item("invsal").ToString()
xlw.Worksheets("sheet1").Cells(i + 6, 2).numberformat = "#,##.00"
xlw.Worksheets("sheet1").Cells(i + 6, 3) = ds.Tables("invodet").Rows(i).Item("invqu").ToString()
xlw.Worksheets("sheet1").Cells(i + 6, 4) = ds.Tables("invodet").Rows(i).Item("invprc").ToString()
xlw.Worksheets("sheet1").Cells(i + 6, 4).numberformat = "#,##.00"
xlw.Worksheets("sheet1").Cells(i + 6, 5) = ds.Tables("invodet").Rows(i).Item("invunit").ToString()
xlw.Worksheets("sheet1").Cells(i + 6, 6) = ds.Tables("invodet").Rows(i).Item("invsun").ToString()
Next
استخدم الكود التالي في الطباعة من خلال اكسيل
لكن ظهرت مشكلة لو ان عدد الاصناف تعدي 32 صنف
عايز اجميع عمود 2 كل ما زاد عدد الاسطر عن 32 سطر ويسمي ناتج الجمع ماقبله
اي
For i = 0 To ds.Tables("invodet").Rows.Count - 1
for j=1 to 32
next j
next i
وهذا هو الكود المستخدم في الطباعة
For i = 0 To ds.Tables("invodet").Rows.Count - 1
xlw.Worksheets("sheet1").Cells(i + 6, 1) = i + 1
xlw.Worksheets("sheet1").Cells(i + 6, 1).HorizontalAlignment = 3
xlw.Worksheets("sheet1").Cells(i + 6, 1).VerticalAlignment = 3
xlw.Worksheets("sheet1").Cells(i + 6, 2) = ds.Tables("invodet").Rows(i).Item("invsal").ToString()
xlw.Worksheets("sheet1").Cells(i + 6, 2).numberformat = "#,##.00"
xlw.Worksheets("sheet1").Cells(i + 6, 3) = ds.Tables("invodet").Rows(i).Item("invqu").ToString()
xlw.Worksheets("sheet1").Cells(i + 6, 4) = ds.Tables("invodet").Rows(i).Item("invprc").ToString()
xlw.Worksheets("sheet1").Cells(i + 6, 4).numberformat = "#,##.00"
xlw.Worksheets("sheet1").Cells(i + 6, 5) = ds.Tables("invodet").Rows(i).Item("invunit").ToString()
xlw.Worksheets("sheet1").Cells(i + 6, 6) = ds.Tables("invodet").Rows(i).Item("invsun").ToString()
Next