主题：[求助]

我想实现的功能：首先，在表A中，针对第一列的每一个内容（实际有N多字母组合组成），分别筛选出日期最早和最晚的值（这个用FIND函数都能找到吗？），然后计算出第五列和第六列的差值的绝对值，除以表C中的各列所对应的值L1，L2。。。。。。最后显示出表A第一列中的每一个内容所对应的关联值与计算所得出来的值。谢谢

                       

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("第六列")))