黄色阴影的想法是想在旁边新增一个表
Dim rt3 As new prt.RenderTable
Dim tbl As Table = Tables("分派工序_table8")
Dim Rows As List(Of DataRow)
Rows = tbl.DataTable.Select("[订单号] = '" & Tables("分派工序_table2").current("订单号") & "'")
rt3 = New prt.RenderTable
rt3.Cells(0,0).Text = "工序号"
rt3.Cells(0,1).Text = "工序名"
For qr As Integer = 0 To Rows.Count -1
rt3.Cells(qr+1,0).Text = rows(qr)("工序号")
rt3.Cells(qr+1,1).Text = rows(qr)("工序名")
rt3.Style.FontSize = 14
rt3.Style.FontBold = True
rt3.X = 0
rt3.Y = 0
ra.Children.Add(rt3)
Next
[此贴子已经被作者于2019/8/10 9:57:00编辑过]