主题：查询表中增加一列逻辑列

在下面的查询表中增加一列逻辑列，如何添加

Dim jb As New SQLJoinTableBuilder("查询表1","订单")
jb.ConnectionName = "Sale"
jb.AddTable("订单","产品ID","产品","产品ID")
jb.AddTable("订单","客户ID","客户","客户ID")
jb.AddExp("年","Year(日期)",True)
jb.AddCols("产品名称","客户名称",True)
jb.AddExp("数量","Sum(数量)")
jb.AddExp("金额","Sum(数量 * 单价)")
jb.Build()
MainTable = Tables("查询表1")

我是这样做的：

 DataTables("查询表1").DataCols.Add("有无",Gettype(Boolean))

但在窗体中无法勾选