For Each n As String In DataTables("表A").GetValues("第一列", "第一列 is not null")
Dim dr1 As DataRow = DataTables("表A").Find("第一列 = '" & n & "'", "第二列")
Dim dr2 As DataRow = DataTables("表A").Find("第一列 = '" & n & "'", "第二列 desc")
Dim drr1=(n & " : " & math.Abs(dr2("第五列") - dr1("第五列")))
Dim drr2=(n & " : " & math.Abs(dr2("第六列") - dr1("第六列")))
Next
我不想用msgbox函数弹出来每个值
是这样 我想针对每一行的DRR1和DRR2的值赋值到新表-表D中。表D中包含表A中的第一列,DRR1与DRR2