17-12-16, 11:25 AM
استخدمت هذا الكود لحساب المجموع, لكن الحساب يأخذ وقت طويل لذلك قررت تجربة وضع الأمر في أداة العمل في الخلفية لكن تظهر لي هذه الرسالة أثناء التطبيق:
الكود :
الرسالة :
الكود :
PHP كود :
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False
End Sub
Private Sub BackgroundWorker2_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker2.DoWork
GetTootel()
End Sub
Sub GetTootel()
Me.SubscribersBindingSource.MoveFirst()
Me.EventdataBindingSource.MoveFirst()
Label7.Text = " 0"
Label10.Text = "0"
Label11.Text = "0"
Dim tot As Double = 0
Dim ooo As Double = 0
For Each i As DataGridViewRow In SubscribersDataGridView.Rows
With DataGridView1()
For Each d As DataGridViewRow In DataGridView1.Rows
tot += CDbl(d.Cells("PriseDataGridViewTextBoxColumn").Value)
Next
End With
For Each d As DataGridViewRow In DataGridView1.Rows
ooo += CDbl(d.Cells("DiscountDataGridViewTextBoxColumn").Value)
Next
SubscribersBindingSource.MoveNext()
Next
Label10.Text = ooo
Label7.Text = tot
Label11.Text = Val(Label7.Text - Label10.Text)
Label17.Text = SubscribersDataGridView.RowCount
Panel1.Enabled = True
SubscribersBindingNavigator.Enabled = True
End Sub
Private Sub Button17_Click(sender As System.Object, e As System.EventArgs) Handles Button17.Click
Panel1.Enabled = False
SubscribersBindingNavigator.Enabled = False
BackgroundWorker2.RunWorkerAsync()
End Sub
End Class
الرسالة :