16-05-22, 01:28 AM
كيف استخدم parallel for لتسريع الكود
كود :
Dim idx As Integer = DGVTest(6, DGVTest.SelectedRows(0).Index).Value.ToString
Dim dt As DataTable = New DAL().selectdatatable(String.Format("SELECT Test_Price, Test_No FROM Tests order by Tests.Test_No;"))
Dim d As New DAL
d.Dataedit(String.Format("delete from comprices where comid={0} ", idx))
For i As Integer = 0 To dt.Rows.Count - 1
d.Dataedit(String.Format("insert into comprices (TestPrice,Test_No,comid) values({0},{1},{2})", dt.Rows(i)(0), dt.Rows(i)(1), idx))
Next
M.M