Dim st As Date = Date.NowDim arys As List (of String) = DataTables("表A").GetValues("ID")For Each ary As String In arys For Each dr As DataRow In DataTables("表B").Select("ID = '" & ary & "'") dr("标识") = "ZD" NextNext
'要测试耗时的代码MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")
这段很耗时,要怎么改进了,请老师帮忙!