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

With Tables("发货清单记录")

Dim drs As List(of DataRow)

If .TopPosition > -1 Then '如果选定区域包括数据行

For i As Integer = .TopPosition+1 To .BottomPosition

Dim A As Double = CDbl(drs(i-1)("出厂编号").Substring(1, 7))

Dim n1 As Double = drs(i-1)("发货数量")

Dim n2 As Double = drs(i)("发货数量")

Dim B As String = Cstr(A+n1)

Dim B1 As String = Cstr(A+n1+n2-1)

drs(i)("出厂编号") = B & "-" & B1

End If

End With

此主题相关图片如下：qq截图20180330120804.png

此主题相关图片如下：qq截图20180330120748.png

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