以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  查询限制信息怎么写,请老师指导,谢谢。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178164)

--  作者:xiaofei_00
--  发布时间:2022/6/21 10:15:00
--  查询限制信息怎么写,请老师指导,谢谢。
Dim jb As New SQLJoinTableBuilder("统计表1","ACCxmdjb")
Dim bg As {ACCygdjb}.bgs 。。。。这里怎么写?  
jb.C
jb.AddTable("ACCxmdjb","ygxm","ACCygdjb","ygxm") \'关联列
jb.AddCols("{ACCxmdjb}.ygxm","xmfzr","gsmc","xmmc","dtmc","xmlx","gch","gxs","wcsj","sfsjwj") \'显示的列
jb.Filter = "bgs = bg  And  sfsjwj = False" \'筛选条件
jb.Distinct = True
jb.Build()
MainTable = Tables("统计表1")

我有一个ACCxmdjb(项目登记表),一个ACCygdjb(员工登记表),员工登记表有一列 bgs(就是所在办公室的号码如:1203),我现在想实现的查询功能时,当某人(项目负责人)登录时,点击查询按钮显示的结果只有本办公室人员的 项目登记信息,这个限制信息怎么写,请老师指导,谢谢。

--  作者:有点蓝
--  发布时间:2022/6/21 10:29:00
--  
一样的用法:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=178114&skin=0

 jb.Filter = "bgs in (select bgs from {ACCygdjb} as a where 员工项目=\'" & user.name & "\') And  sfsjwj = False"

--  作者:xiaofei_00
--  发布时间:2022/6/21 11:03:00
--  
我前边的实际是失败了,和另一个表的过滤条件冲突,过滤出来的记录只有自己作为项目负责人的记录,别的记录不显示,所以我才改了这个查询的方式
--  作者:有点蓝
--  发布时间:2022/6/21 11:05:00
--  
请上传实例说明
--  作者:xiaofei_00
--  发布时间:2022/6/21 15:12:00
--  

jb.AddCols("xdrq","{ACCxmdjb}.ygxm","xmfzr","gsmc","xmmc","dtmc","xmlx","gch","gxs","wcsj") \'显示的列

老师我的统计表显示都是列名称,都是一堆英文字母,怎么才能让他显示列标题呢?
还有表达式列怎么显示查询结果??


--  作者:有点蓝
--  发布时间:2022/6/21 15:16:00
--  
1、需要先生成统计表,然后在另外设置标题:http://www.foxtable.com/webhelp/topics/1275.htm
2、表达式列使用AddExp

jb.AddExp("金额""[数量] * [单价]") 

--  作者:xiaofei_00
--  发布时间:2022/6/21 16:33:00
--  

jb.AddExp("剩余工时数", "[gxs] - [ychx] - [echx] - [schx] - [sichx] - [wchx]") 
jb.AddCols("xdrq","{ACCxmdjb}.ygxm","xmfzr","gsmc","xmmc","dtmc","xmlx","gch","gxs","剩余工时数","wcsj") \'显示的列

With DataTables("统计表1")
    .DataCols("xdrq").Caption = "下达日期"
    .DataCols("ygxm").Caption = "员工姓名"
    .DataCols("xmfzr").Caption = "项目负责人"
    .DataCols("gsmc").Caption = "公司名称"
    .DataCols("xmmc").Caption = "项目名称"
    .DataCols("dtmc").Caption = "单体名称"
    .DataCols("xmlx").Caption = "项目类型"
    .DataCols("gch").Caption = "工程号"
    .DataCols("gxs").Caption = "工时数"
    .DataCols("wcsj").Caption = "完成时间"
    .BuildHeader()
End With


运行出错,提示“已经添加了具有相同键的项”,老师看我的代码哪里的问题呢?

--  作者:xiaofei_00
--  发布时间:2022/6/21 16:41:00
--  
我这个表达式列的几个参数不想在这个统计表中显示出来,难道是这个原因报错吗?
--  作者:有点蓝
--  发布时间:2022/6/21 16:53:00
--  
完整代码?
--  作者:xiaofei_00
--  发布时间:2022/6/21 17:19:00
--  
前边几条都一样的我删掉了,否则发不上来不知道为什么?提示没有权限。