以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  临时列生成后赋值数据为空  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120839)
--  作者：samlzc
--  发布时间：2018/6/24 21:15:00
--  临时列生成后赋值数据为空
If Tables("订单表_Table1").DataTable.DataCols.Contains("明细品种") Then
    Tables("订单表_Table1").Cols("明细品种").Visible = True
Else
    Tables("订单表_Table1").DataTable.DataCols.Add("明细品种",Gettype(String),255)
End If
For Each r As Row In Tables("订单表_Table1").Rows
    Dim Products As List(Of String)
    Dim Parts() As String
    Products = DataTables("cbb").GetValues("产品名称","[订单编号] = \' " & r("订单编号") & "  \'" )
    Parts = products.ToArray()
    Dim Str1 As String
    Str1 = String.Join(" ", Parts)
    r("明细品种") = Str1
Next

以上代码运行后只生成了临时列“明细品种"，但是却没有赋值成功。
订单表_Table1 是副本，设置为不允许编辑。有关系吗？

因为我目的是明细品种列是临时用的。完成打印关闭窗口就没有了。
请指点，谢谢！
--  作者：有点甜
--  发布时间：2018/6/24 23:42:00
--  

不能有多余空格

 

Products = DataTables("cbb").GetValues("产品名称","[订单编号] = \'" & r("订单编号") & "\'" )
--  作者：samlzc
--  发布时间：2018/6/25 0:02:00
--  
谢谢！