帮忙看下代码对不对... - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

With Tables("发货清单记录")
    If .TopPosition > -1 Then '如果选定区域包括数据行
        For i As Integer = .TopPosition+1 To .BottomPosition
            Dim A As Double = CDbl(.rows(i-1)("出厂编号").Substring(1, 7))
            Dim n1 As Double = .rows(i-1)("发货数量")
            Dim n2 As Double = .rows(i)("发货数量")
            Dim B As String = Cstr(A+n1)
            Dim B1 As String = Cstr(A+n1+n2-1)
            .rows(i)("出厂编号") = B & "-" & B1
        Next
    End If
End With

主题：帮忙看下代码对不对...