Foxtable(狐表)用户栏目专家坐堂 → [求助]跨表下拉录入


  共有3805人关注过本帖树形打印复制链接

主题:[求助]跨表下拉录入

帅哥哟,离线,有人找我吗?
湛江智
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点甜)    Dim count = Dat...  发帖心情 Post By:2018/10/23 17:18:00 [只看该作者]

 大师,再请教增加1个条件,第七列的值等于 2 时, 不计入统计的数量,这个条件怎么增加呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/23 17:21:00 [只看该作者]

Dim count = DataTables("表A").Compute("count(流程1_负责人)", "(流程1_完成情况 = '未完成' or 流程1_完成情况 Is null) and 流程1_负责人 like '%" & xm & "%' and (第七列 is null or 第七列 <> '2')")

 回到顶部
帅哥哟,离线,有人找我吗?
湛江智
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点甜)Dim count = DataTables("表A").Comp...  发帖心情 Post By:2018/10/23 17:52:00 [只看该作者]

大师,统计表是临时表,组合字符串,想按 统计 表里面行的前后顺序排列 负责人名字,下面代码怎么修改呢?
统计 临时表,不能设置 标识列

Dim str3 = DataTables("统计").GetComboListString("负责人"," ","_Identify")
str3 = str3.replace(",", "|").replace("|", " ")
e.Form.Controls("Label2").Text = str3
[此贴子已经被作者于2018/10/23 17:52:36编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/23 18:02:00 [只看该作者]

比如

 

Dim str3 As String = DataTables("统计").GetComboListString("流程1_负责人", "", "[流程1_未完成数量] desc")
str3 = str3.replace("|", " ")
msgbox(str3)


 回到顶部
帅哥哟,离线,有人找我吗?
湛江智
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:812 积分:6676 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点甜)比如?Dim str3 As String =...  发帖心情 Post By:2018/10/25 11:25:00 [只看该作者]

 大师,如果要汇总的是2列的字符串: 
负责人 | 未完成数量 
效果类似下面:
小王|4  小李|3  小红|2

下面代码怎么修改呢? 谢谢啊

Dim
str3 = DataTables("未完成任务的人员统计").GetComboListString("深化设计完成时间节点_负责人"," ","[全套施工图_未完成数量] Desc")

Dim str44 = DataTables("未完成任务的人员统计").GetComboListString("全套施工图_未完成数量"," ","[全套施工图_未完成数量] Desc")

str3 = str3.replace(",", "|").replace("|", " ")

str44 = str44.replace(",", "|").replace("|", " ")

'e.Form.Controls("Label2").Text = str3

e.Form.Controls("Label2").Text = str3 & str44
[此贴子已经被作者于2018/10/25 11:27:16编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106081 积分:539504 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/25 11:30:00 [只看该作者]

Dim Arys As List(Of String())  = DataTables("未完成任务的人员统计").GetValues("深化设计完成时间节点_负责人|全套施工图_未完成数量")
Dim str As String
For Each Ary As String() In Arys
    str = str & ";" & Ary(0) & "|" & Ary(1)
Next

e.Form.Controls("Label2").Text  = str.Trim(";")

 回到顶部
总数 16 上一页 1 2