- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 帮忙看下代码对不对... (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116746)
-- 发布时间：2018/3/30 12:09:00
-- 帮忙看下代码对不对...
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
Next
End If
End With
此主题相关图片如下：qq截图20180330120804.png
此主题相关图片如下：qq截图20180330120804.png此主题相关图片如下：qq截图20180330120748.png
-- 发布时间：2018/3/30 12:12:00
--
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
-- 发布时间：2018/3/30 14:14:00
--
谢谢~