对于选定区域执行下面代码还不是很懂,麻烦高手帮忙看下要怎么改~谢谢啦!
Tables("检测流程流转记录表").StopRedraw
Dim Arys As List(Of String())
Arys = DataTables("样品信息").GetUniqueValues("样品编号 is not null","样品编号","检测项目")
For Each Ary As String() In Arys
Dim s As String = Ary(1)
Dim Values() As String = s.Split(",")
For i As Integer = 0 To Values.Length - 1
Dim Arys1 As List(Of String())
Arys1 = DataTables("检测项目").GetUniqueValues("加载流转项目 = '" & Values(i) & "'", "检测项目","检测依据","检测部门","报价费用","费用说明")
For Each Ary1 As String() In Arys1
Dim dr As DataRow
dr = DataTables("检测流程流转记录表").Find("样品编号 = '" & Ary(0) & "' and 加载流转项目 = '" & Values(i) & "'")
If dr Is Nothing Then
Dim r As Row = Tables("检测流程流转记录表").AddNew()
r("样品编号") = Ary(0)
r("加载流转项目") = Values(i)
r("检测项目") = Ary1(0)
r("检测依据") = Ary1(1)
r("检测部门") = Ary1(2)
r("报价费用") = Ary1(3)
r("费用说明") = Ary1(4)
End If
Next
Next
Next
Tables("检测流程流转记录表").ResumeRedraw