تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عمل حقلة تكرارية داخل الحلقة الاساسية
#1
السادة الافاضل
استخدم الكود التالي في الطباعة من خلال اكسيل
لكن ظهرت مشكلة لو ان عدد الاصناف تعدي 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
الرد }}}}
تم الشكر بواسطة:
#2

.xls   dataout.xls (الحجم : 186 ك ب / التحميلات : 40)
الرد }}}}
تم الشكر بواسطة:
#3
لتقريب الفكرة

بفرض ان هناك لستة بها الاعداد
1
2
3
4
5
6
7
8
كيف يتم عرض مجموع كل عددين وفي النهاية يتم عرض المجموع الكلي
dim a,b as integer
for i=0 to 7
for j=1 to 2
a=a+listbox1.items(j) مثلا
next j
b+=a
next i
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة بحفظ محتوى داخل combox داخل قاعدة البيانات او فكرة مقاربه المثال مرفق رهف العريفي 24 733 17-06-16, 03:05 AM
آخر رد: رهف العريفي
  كيف اقوم بحفظ محتوى داخل combox داخل قاعدة البيانات او فكرة مقاربه المثال مرفق رهف العريفي 5 216 05-06-16, 07:17 PM
آخر رد: boudyonline
  كيف اقوم بحفظ محتوى داخل combox داخل قاعدة البيانات او فكرة مقاربه المثال مرفق رهف العريفي 4 246 05-06-16, 06:43 AM
آخر رد: ابو ليلى
  كيف اقوم بحفظ محتوى داخل combox اضيف بواسطه textbox داخل قاعدة البيانات المثال مرفق رهف العريفي 4 213 04-06-16, 08:55 AM
آخر رد: رهف العريفي
  تكرار البيانات داخل قاعدة البيانات اثناء الحفظ Medo555 1 406 23-12-15, 04:08 AM
آخر رد: Adrees
  الشرط داخل المديول djelloul 1 168 03-12-15, 04:45 PM
آخر رد: HASAN6.0
  كيف يمكن عرض combobox بشرط معين في داخل datagridview البراء 6 1,041 29-11-15, 12:44 AM
آخر رد: abulayth
  [VB.NET] عرض محتويات حقل ملاحظات داخل DataGridView مبرمج بلا حدود 7 615 08-09-15, 11:15 PM
آخر رد: مبرمج بلا حدود
  [VB.NET] عرض حقل من نوع مذكرة داخل داة DataGridView مبرمج بلا حدود 0 241 07-09-15, 03:42 PM
آخر رد: مبرمج بلا حدود
  ابحث عن كود يقوم بالبحث داخل DataGridView عن طريق القيم داخل list box يرجى المساعدة moh61 4 842 04-09-15, 07:40 AM
آخر رد: khodor1985

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم