以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189323)

--  作者:aidimeng
--  发布时间:2023/11/24 12:25:00
--  数据统计

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




--  作者:有点蓝
--  发布时间:2023/11/24 13:46:00
--  
用execl把。word使用模板做不了,得自己使用vba编码填充数据
--  作者:aidimeng
--  发布时间:2023/11/27 12:30:00
--  
部门对应多个隐患记录,能否生成一个临时表,主表是部门信息,附表是隐患信息啊,这样直至使用excel模板就简单了
--  作者:有点蓝
--  发布时间:2023/11/27 13:04:00
--  
考虑这种:http://www.foxtable.com/webhelp/topics/3233.htm,使用sql从同一个表获取不同数据
--  作者:aidimeng
--  发布时间: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、生成的临时表 怎么代码删除

 


--  作者:有点蓝
--  发布时间:2023/11/27 15:47:00
--  
1、能实现功能就行

2、DataTables.unload("表B")

--  作者:aidimeng
--  发布时间:2023/11/27 16:03:00
--  
名为“表B”的 DataTable 已属于此 DataSet
这个提示是什么意思啊

--  作者:有点蓝
--  发布时间:2023/11/27 16:21:00
--  
这个名称的表已经存在,不能重复添加。换个名称