02-10-19, 02:00 PM
(02-10-19, 07:09 AM)asemshahen5 كتب : [ -> ]الغ -1
الله عليك تسلم ايدك اخي
كده اشتغل معايا 100 %
والله لا اعرف كيف اشكرك
جزاك الله عنا كل خير
وجعله في ميزان حسناتك ان شاء الله
(02-10-19, 07:09 AM)asemshahen5 كتب : [ -> ]الغ -1
(06-10-19, 08:22 PM)asemshahen5 كتب : [ -> ]السلام عليكم فرغ صندوق الرسائل الخاصة عندك الصندوق ممتلئ و ضع مثالا مصغرا فيه الخطأ اما بمرفقات الموضوع او في ميديا فاير او في غوغل درايف .
(09-10-19, 04:11 PM)asemshahen5 كتب : [ -> ]هذا الملف بعد التعديل :
(09-10-19, 04:11 PM)asemshahen5 كتب : [ -> ]هذا الملف بعد التعديل :
Dim sum As Double
For s As Integer = 0 To DataGridView1.RowCount - 1
sum = sum + DataGridView1.Rows(s).Cells("ActPercent").Value
Next
Label20.Text = sum
Invoke(Sub() RichTextBox1.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells(0).Value)).Sum().ToString("00,000.00"))
(10-10-19, 05:23 AM)asemshahen5 كتب : [ -> ]ما اسم هذا العامود في جدول قاعدة البيانات ActPercent
أو جرب هذا الكود بعد اللوب :
PHP كود :
Invoke(Sub() RichTextBox1.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells(0).Value)).Sum().ToString("00,000.00"))
Dim sum As Double
For s As Integer = 0 To DataGridView1.RowCount - 1
sum = sum + DataGridView1.Rows(s).Cells("ActPercent").Value
Invoke(Sub() Label20.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells("ActPercent").Value)).Sum().ToString("00,000.00"))
Next
Label20.Text = sum
Invoke(Sub() Label20.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells("ActPercent").Value)).Sum().ToString("00,000.00"))
Private Sub BackgroundWorker2_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker2.DoWork
Invoke(Sub() Label20.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells("ActPercent").Value)).Sum().ToString("00,000.00"))
End Sub