For Each r2 As Row In Tables("zzscjjzb").Rows
Dim nms() As String = r2("规格").Split("+") '将规格列内容拆分成数组
For k As Integer = 1 To r2("数量") '加一个循环
dim k as integer = 0
if r2（“产品名称”）like“*外阜*”then k = 3
dim g as integer = nms.length
if k>0 then g = g * (k+1)
dim idx as integer = 1
for m as integer = 0 to k
For i As Integer = 0 To nms.length - 1
Dim nm As String = nms(i)
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rx As New prt.RenderText '定义一个文本对象
……
If r2("规格") = "" Then
rt.Cells(8,0).Text= "套规格"
rt.Cells(8,1).Text = nm
Else
rt.Cells(8,0).Text= "套规格"
rt.Cells(8,1).Text = r2("规格") & " / " & nm & idx & "/" & g
idx += 1
End If
加好友 
发短信
Post By：2021/4/8 11:20:00 [显示全部帖子]
