专家坐堂-报表：我想在"姓名"列计数，审批意见引用相应合计数，各位高手，模版怎么写啊？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  报表：我想在"姓名"列计数，审批意见引用相应合计数，各位高手，模版怎么写啊？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98147)

--  作者：xhydxs
--  发布时间：2017/3/24 21:28:00
--  报表：我想在"姓名"列计数，审批意见引用相应合计数，各位高手，模版怎么写啊？

我想在"姓名"列计数，审批意见引用相应合计数，各位高手，模版怎么写啊？

此主题相关图片如下：无标题.jpg

此主题相关图片如下：无标题2.jpg

--  作者：有点蓝
--  发布时间：2017/3/24 21:51:00
--
在代码中计数，使用标记替换，http://www.foxtable.com/webhelp/scr/1396.htm

--  作者：xhydxs
--  发布时间：2017/3/24 21:58:00
--

以下是引用有点蓝在2017/3/24 21:51:00的发言：
在代码中计数，使用标记替换，http://www.foxtable.com/webhelp/scr/1396.htm

没明白，请高手指点！

--  作者：有点蓝
--  发布时间：2017/3/24 22:03:00
--
上传项目实例和模板测试

--  作者：xhydxs
--  发布时间：2017/3/24 22:05:00
--

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:教龄遗属(1).rar

[此贴子已经被作者于2017/3/24 22:11:43编辑过]

--  作者：xhydxs
--  发布时间：2017/3/24 22:35:00
--

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:教龄遗属.table

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:遗属调标.xls

--  作者：有点蓝
--  发布时间：2017/3/24 22:50:00
--

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:遗属生活困难补助调整标准审批表.xls

Dim Book As New XLS.Book(ProjectPath & "Attachments\\遗属生活困难补助调整标准审批表.xls")
Dim t As Table = Tables("遗属调标")
Vars("Cnt") = t.BottomRow - t.TopRow + 1
Vars("DDate") = e.Form.Controls("DateTimePicker1").Value
Book.Build()
Dim fl = ProjectPath & "Reports\\遗属调标\\" & format(Date.now,"yyyy-MM") & "\\" & format(Date.now,"yyyy-MM") & "遗属生活困难补助调整标准审批表.xls"
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

--  作者：xhydxs
--  发布时间：2017/3/24 23:02:00
--

/UploadFile/2017-3/201732421261227732.jpg

相同名字合并后就只有一个人了

--  作者：有点蓝
--  发布时间：2017/3/24 23:11:00
--

Dim Book As New XLS.Book(ProjectPath & "Attachments\\遗属生活困难补助调整标准审批表.xls")
Dim t As Table = Tables("遗属调标")
Dim lst As new List(of String)
Vars("Cnt") = 0
For i As Integer = t.TopRow To t.BottomRow
If lst.Contains(t.Rows(i)("死者姓名")) = False Then
Vars("Cnt") += 1
lst.Add(t.Rows(i)("死者姓名"))
End If
Next
Vars("DDate") = e.Form.Controls("DateTimePicker1").Value
Book.Build()
Dim fl = ProjectPath & "Reports\\遗属调标\\" & format(Date.now,"yyyy-MM") & "\\" & format(Date.now,"yyyy-MM") & "遗属生活困难补助调整标准审批表.xls"
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

--  作者：xhydxs
--  发布时间：2017/3/24 23:13:00
--

以下是引用有点蓝在2017/3/24 22:50:00的发言：

下载信息  [文件大小：29.5 KB  下载次数：5]

点击浏览该文件:遗属生活困难补助调整标准审批表.xls

Dim Book As New XLS.Book(ProjectPath & "Attachments\\遗属生活困难补助调整标准审批表.xls")

Dim t As Table = Tables("遗属调标")

Vars("Cnt") = t.BottomRow - t.TopRow + 1

Vars("DDate") = e.Form.Controls("DateTimePicker1").Value

Book.Build()

Dim fl = ProjectPath & "Reports\\遗属调标\\" & format(Date.now,"yyyy-MM") & "\\" & format(Date.now,"yyyy-MM") & "遗属生活困难补助调整标准审批表.xls"

Book.Save(fl)

Dim Proc As New Process

Proc.File = fl

Proc.Start()

我是想计数"张三三"那一列，并将合计相关数字引用到相应位置

此主题相关图片如下：无标题1.jpg