Foxtable(狐表)用户栏目专家坐堂 → 数据统计


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

主题:数据统计

帅哥哟,离线,有人找我吗?
aidimeng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:798 积分:7677 威望:0 精华:0 注册:2015/9/14 14:26:00
数据统计  发帖心情 Post By:2023/11/24 12:25:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20231124122223.png
图片点击可在新窗口打开查看
有上图这样的表,想把上图数据生成附件中的word
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:安全隐患整改通知单.zip




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


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/24 13:46:00 [只看该作者]

用execl把。word使用模板做不了,得自己使用vba编码填充数据

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


加好友 发短信
等级:三尾狐 帖子:798 积分:7677 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2023/11/27 12:30:00 [只看该作者]

部门对应多个隐患记录,能否生成一个临时表,主表是部门信息,附表是隐患信息啊,这样直至使用excel模板就简单了

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


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/27 13:04:00 [只看该作者]

考虑这种:http://www.foxtable.com/webhelp/topics/3233.htm,使用sql从同一个表获取不同数据

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


加好友 发短信
等级:三尾狐 帖子:798 积分:7677 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2023/11/27 15:31:00 [只看该作者]


TableCaptionVisible = True
Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("检查时间", GetType(Date))
dtb.AddDef("问题描述", GetType(String), 255) 
dtb.AddDef("截止日期", GetType(Date)) 
dtb.AddDef("责任人", GetType(String), 32)
dtb.AddDef("隐患类型", GetType(String), 32)
dtb.AddDef("隐患子类", GetType(String), 32)
dtb.AddDef("检查类型", GetType(String), 32)
dtb.AddDef("隐患等级", GetType(String), 32)
dtb.AddDef("责任部门", GetType(String), 32)

dtb.Build()
 
Dim dt As DataTable = DataTables("隐患记录")
For Each v As String In dt.GetValues("责任部门")
    
    
    
    For Each dr2 As DataRow In dt.Select("责任部门 = '" & v & "'")
        Dim dr1 As DataRow = DataTables("表B").AddNew()
    dr1("责任部门") = v
        
        dr1("检查时间") = dr2("检查时间")
        dr1("问题描述") = dr2("问题描述")
        dr1("截止日期") = dr2("截止日期")
        dr1("责任人") = dr2("责任人")
        dr1("隐患类型") = dr2("隐患类型")
        dr1("隐患子类") = dr2("隐患子类")
        dr1("隐患等级") = dr2("隐患等级")
        
    Next
Next
If Relations.Contains("临时关联") Then
   Relations.Delete("临时关联")
End If

Relations.Add("临时关联", DataTables("隐患记录").DataCols("责任部门"), DataTables("表B").DataCols("责任部门"))
问题1、我是不是绕远了,想着利用关联表与主表直接生成excel
问题2、生成的临时表 怎么代码删除

 


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


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/27 15:47:00 [只看该作者]

1、能实现功能就行

2、DataTables.unload("表B")

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


加好友 发短信
等级:三尾狐 帖子:798 积分:7677 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2023/11/27 16:03:00 [只看该作者]

名为“表B”的 DataTable 已属于此 DataSet
这个提示是什么意思啊

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


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/27 16:21:00 [只看该作者]

这个名称的表已经存在,不能重复添加。换个名称

 回到顶部