以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  加了阴影部分报错：添加的项目已经有所有者了。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139288)

--  作者：yetle --  发布时间：2019/8/9 19:01:00 --  加了阴影部分报错：添加的项目已经有所有者了。 黄色阴影的想法是想在旁边新增一个表 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编辑过]

--  作者：有点蓝 --  发布时间：2019/8/9 20:24:00 --       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     Next ra.Children.Add(rt3) ‘放到循环里就重复添加了

--  作者：yetle --  发布时间：2019/8/10 9:57:00 --   谢谢