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

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

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 & "\' ")  & "】"

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

日期                内容

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") \'统计表的格式(要显示的列)