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


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

主题:数据统计

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


加好友 发短信
等级:四尾狐 帖子:803 积分:7707 威望:0 精华:0 注册:2015/9/14 14:26:00
数据统计  发帖心情 Post By:2023/11/24 12:25:00 [显示全部帖子]


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




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


加好友 发短信
等级:四尾狐 帖子:803 积分:7707 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2023/11/27 12:30:00 [显示全部帖子]

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

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


加好友 发短信
等级:四尾狐 帖子:803 积分:7707 威望: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、生成的临时表 怎么代码删除

 


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


加好友 发短信
等级:四尾狐 帖子:803 积分:7707 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2023/11/27 16:03:00 [显示全部帖子]

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

 回到顶部