以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58616)
--  作者：kensou11111
--  发布时间：2014/10/20 22:56:00
--  [求助]
我有如下一段关于查询表的代码：

Dim jb As New SQLJoinTableBuilder("查询表1","生产单表头")
jb.C
jb.AddTable("生产单表头","生产单号","生产单产品表","生产单号")
Dim Cols() As String = {"生产单号","生产单序号"}
jb.AddTable("生产单产品表",Cols,"生产单材料表",Cols)
jb.AddTable("生产单材料表","物料编码","物料编码设置","物料编码")
jb.AddTable("生产单材料表","单位编码","计量单位设置","计量单位编码")
jb.AddCols("{生产单材料表}.生产单号","下单日期","{生产单材料表}.生产单序号","材料序号","{生产单产品表}.物料编码","{生产单材料表}.物料编码","物料名称","规格型号","{生产单材料表}.单位编码","计量单位名称","需求数量","已领数量","单位用量","套数","{生产单材料表}.备注")
jb.Filter = "{生产单表头}.批准 = 1 and {生产单产品表}.是否关闭 = 0 and {生产单材料表}.是否关闭 = 0 "
jb.Build()
Tables("生产领料单引用窗口_Table1").DataSource = jb.BuildDataSource()

DataTables("生产领料单引用窗口_Table1").DataCols.Add("选择", Gettype(Boolean))
Tables("生产领料单引用窗口_Table1").SetColVisibleWidth("生产单号|90|下单日期|70|物料编码|100|物料编码|100|物料名称|140|规格型号|230|计量单位名称|90|需求数量|60|已领数量|60|备注|200|选择|40")


代码有两列的名称是相同的，但代表不同意义，如果我希望在显示结果时将红色文字列的标题显示为“产品编码”，将蓝色的显示为“材料编码”，该如何写代码？
--  作者：有点甜
--  发布时间：2014/10/20 23:07:00
--  
 直接写 "{生产单产品表}.物料编码 As 产品编码"