Dim caiyangs() As String = {"化学因素采样","化学因素现场检测采样","噪声强度采样","噪声脉冲采样","噪声个体采样","微波采样","振动采样","激光采样","电场磁场采样","紫外采样","超高频采样","高频采样","高温采样"}
Dim caiyy As New List(of String())
For Each caiyang As String In caiyangs
DataTables(caiyang).LoadFilter = "方案id = '" & fang("_id") & "'"
DataTables(caiyang).Load
Dim Arys As List(Of String())
Arys = DataTables(caiyang).GetValues("采样测量日期|采样员一确认","方案id = '" & fang("_id") & "' and 采样测量日期 is not null and 采样员一确认 is not null")
If Arys.Count > 0 Then
caiyy.AddRange(Arys) '出现错误
End If
Next
错误提示:未能比较数组中的两个元素,如何修改正确的?