主题：[求助] 报表输出问题

我做了一个WORD的报表、点击报表输出的时候出现如下提示。请问是什么问题

1、第一招：

http://www.cnblogs.com/bile/p/3520439.html

 

2、第二招：

桌面右击foxtable启动快捷方式，选择“以管理员身份运行”

 

3、第三招：

 

运行安装目录里的 office.reg

或者

开始----运行----输入word 2003的安装路径，例如 "C:\Program Files\Microsoft Office\OFFICE11\winword.exe" /regserver 注意/符号前面有一个空格，其中"C:\Program Files\Microsoft Office\OFFICE11\winword.exe" 是word 2003的安装程序的路径，参数regserver表示注册的意思！
运行后，会启动Office 2003的安装程序，进行修复，重新注册。
word 2007为默认的启动程序的方法类同，可以执行 开始----运行----"D:\Program Files\Microsoft Office\Office12\winword.exe" /regserver

 

 

开始----运行----输入excel2003的安装路径，例如 "C:\Program Files\Microsoft Office\OFFICE11\excel.exe" /regserver 注意/符号前面有一个空格，其中"C:\Program Files\Microsoft Office\OFFICE11\excel.exe" 是excel2003的安装程序的路径，参数regserver表示注册的意思！
运行后，会启动Office 2003的安装程序，进行修复，重新注册。
excel2007为默认的启动程序的方法类同，可以执行 开始----运行----"D:\Program Files\Microsoft Office\Office12\excel.exe" /regserver

 

 

 

第四招

重装完整版的office

 

第五招

重装windows

我想实现统计 【确定已经割接日期】列日期与服务器当前日期相同的数量；以下命令需要怎么修改？

 

Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()

e.Form.Controls("TextBox1").text =  "今天新增割接数量:【" & DataTables("宽带帐号割接回访表").Compute("Count(确定已经割接日期)","确定已经割接日期 = '" & dt & "' ")  & "】"

e.Form.Controls("TextBox1").text =  "今天新增割接数量:【" & DataTables("宽带帐号割接回访表").Compute("Count(确定已经割接日期)","确定已经割接日期 >= #" & dt.Date & "# and 确定已经割接日期 < #" & dt.Date.AddDays(1) & "# ")  & "】"

我想实现：当天新增数量 = 当天的统计数量 - 比当天日期小的内容中与当天统计内容相同的 数量，比如数据表如下：

 

日期                内容

2016-04-10    123

2016-04-10    234

 

2016-04-11    123

2016-04-11    235

2016-04-11    333

 

2016-04-12    256

2016-04-12    124

2016-04-12    234

2016-04-12    235

2016-04-12    123

 

11号新增数量 = 2  ；12号新增数量 = 2

 

以下命令中的红色命令该怎么修改？

 

Dim dt As DataTable = DataTables("已割接用户数据表")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "统计|确定已经割接日期")
'trv1.BuildTree(dt1, "分公司类别|分公司","","编号")
'trv.Nodes.Insert("宽带割接回访表",0)
trv.StopRedraw '停止绘制目录树
For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
    If nd.Level = 0 Then '如果是二级节点
        nd.Text =  "已割接帐号【已割接用户总数:"& dt.Compute("Count(统计)"," 统计 <> '' ") & "条】"
    End If
Next
For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
    If nd.Level = 1 Then '如果是二级节点
        nd.Text =  nd.Text & "【"& dt.Compute("Count(确定已经割接日期)","确定已经割接日期 = '" & nd.DataRow("确定已经割接日期") & "' ") & "】"
    End If
Next
trv.ResumeRedraw '恢复绘制目录树

参考代码

 

Dim count As Integer = 0

For Each dr As DataRow in dt.Select("确定已经割接日期 = #" & nd.DataRow("确定已经割接日期") & "#")

    Dim fdr As DataRow = dt.Find("确定已经割接日期 < #" & nd.DataRow("确定已经割接日期") & "# and 内容 = '" & dr("内容") & "'")

    If fdr IsNot Nothing Then count += 1

Next

 

msgbox(count)

想实现按【关停日期】进行小计 统计；我以下命令该怎么添加？

此主题相关图片如下：360截图20160418093400195.jpg

 

Dim g As New GroupTableBuilder("回访统计表", DataTables("宽带帐号割接回访表")) '要显示统计结果的表名,要进行统计的表
g.Groups.AddDef("关停时间", DateGroupEnum.None) '日期类的统计条件
g.Groups.AddDef("确定已经割接日期", DateGroupEnum.None) '日期类的条件条件
g.Totals.AddDef("确定已经割接日期", AggregateEnum.Count, "割接数量统计") '将要进行数量统计的列 填写到要显示的列
g.Filter = "确定已经割接日期 is not null" '筛选统计内容
g.VerticalTotal = True '统计合计
g.Build() '重新生成记录窗口
Dim t As Table = Tables("割接统计窗口_Table1") '要显示统计结果的表存放到哪里(绑定统计表)
t.DataSource = g.BuildDataSource() '生成表
t.SetColVisibleWidth("关停时间|120|确定已经割接日期|120|割接数量统计|100") '统计表的格式(要显示的列)

 那就不能两个分组啊，要么用 确定已经割接日期、要么用 关停时间

按【关停时间】进行小计

删掉红色代码

 

Dim g As New GroupTableBuilder("回访统计表", DataTables("宽带帐号割接回访表")) '要显示统计结果的表名,要进行统计的表
g.Groups.AddDef("关停时间", DateGroupEnum.None) '日期类的统计条件
'g.Groups.AddDef("确定已经割接日期", DateGroupEnum.None) '日期类的条件条件
g.Totals.AddDef("确定已经割接日期", AggregateEnum.Count, "割接数量统计") '将要进行数量统计的列 填写到要显示的列
g.Filter = "确定已经割接日期 is not null" '筛选统计内容
g.VerticalTotal = True '统计合计
Dim t As Table = Tables("割接统计窗口_Table1") '要显示统计结果的表存放到哪里(绑定统计表)
t.DataSource = g.BuildDataSource() '生成表
t.SetColVisibleWidth("关停时间|120|确定已经割接日期|120|割接数量统计|100") '统计表的格式(要显示的列)