主题：求教:根据路径列和标题列生成目录树,再根据路径计算使用数量

For Each dr As DataRow In DataTables("表A").DataRows

    Dim idx As String = dr("级码").LastIndexOf(".")

    If idx > -1 Then

        Dim fdr As DataRow = DataTables("表A").Find("级码 = '" & left(dr("级码"), idx) & "'")

        If fdr IsNot Nothing Then

            dr("使用数量") = fdr("单位数量") * dr("单位数量")

        End If

    Else

        dr("使用数量") = dr("单位数量")

    End If

Next