立即注册 登录
度量快速开发平台-专业、快速的软件定制快开平台 返回首页

王爱东的个人空间 http://bbs.delit.cn/?3 [收藏] [复制] [RSS]

日志

度量快速开发平台中实现列转行的实现效果

已有 1090 次阅读2020-6-13 10:54 |个人分类:构建综合|系统分类:构建综合| 开发平台

这类应用一般是多选数据后填入到一个字段中,然后需要统计多选的数据分别出现了多少次的效果。

 

数据库中保存数据如下:                                                                              要实现的效果如下:



代码示例:

 

'定义网格中显示的dt

dim dt=executeSelect("SELECT NULL 部门ID,NULL 部门名称,0 总数 FROM   dual where 1=0")

网格部件1.DataTable=dt

网格部件1.RefreshDataByDataTable()

'查找目录中的部门

dim dr

dim dept_dt=executeSelect("select 责任部门,责任部门id from xy_院务公开目录表")

dim deptIDstr=""

dim deptNamestr=""

dim dtx

dim drx

for each dept_dr in dept_dt.Rows

  '判断 责任部门id 中是否有重复的,没有重复的才添加(责任部门ID可能是多个字符串组合)

  deptIDstr=split(dept_dr["责任部门id"],",")

  deptNamestr=split(dept_dr["责任部门"],",")

  for i=0 to deptIDstr.Length-1

    '判断 责任部门id字符串中的每个部门ID 是否已经在网格中存在

    if dt.Select("部门ID='"&deptIDstr.GetValue(i)&"'").Length=0 then

       dr=dt.NewRow()

       dr["部门ID"]=deptIDstr.GetValue(i)

       dr["部门名称"]=deptNamestr.GetValue(i)

       dt.Rows.Add(dr)

    end if

  next

next

'更新每个责任部门一共有多少个可以项目

for each drr in dt.Rows

   drr["总数"]=dept_dt.Select("责任部门 like '%"& drr["部门名称"] &"%'").Length

next

网格部件1.GridView.BestFitColumns()



路过

鸡蛋

鲜花

握手

雷人

评论 (0 个评论)

facelist

您需要登录后才可以评论 登录 | 立即注册

手机版|小黑屋|重庆度量科技  本站关键词:快速开发平台

GMT+8, 2024-3-29 20:26 , Processed in 0.078472 second(s), 21 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

返回顶部