亂馬客

Try
	Parallel.ForEach(Of DataRow)(gridData.Select("IS_CHECK = 'Y'"),
	Sub(row)
		' process some info
		' 如果要同時針對DB處理的話，可建立多個connection來對db進行運作
		Using newConn As New SqlConnection("Your Connection string")
			newConn.Open()
			Dim cmdExec As New SqlCommand(strSQL, newConn)
			cmdExec.CommandTimeout = 120
			Dim cmdResult As Object = cmdExec.ExecuteScalar()
			'其他處理logic
			newConn.Close()
		End Using
	End Sub)
Catch aex As AggregateException
        aex = aex.Flatten()
	For Each ex As Exception In aex.InnerExceptions
		Console.WriteLine(ex.ToString())
	Next
End Try