如何求和？谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何求和？谢谢

共有19001人关注过本帖树形打印复制链接主题：如何求和？谢谢

yangming

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/1/10 12:05:00 [显示全部帖子]

提示什么错误？
单独这一段没错，只是有几个变量不知你是如何设置的，看红色部分

For T As Integer = 8 To ColNames.Count - 1 '逐列设置和填入内容
    If tb.Cols(ColNames(T)).IsNumeric then
        rs2.Cells(cnt,T).Text = tb.Compute("Sum(" & ColNames(T) & ")")
    End If
Next

比如：Dim tb as Table= Tables(“人事档案)
Dim rs2 As New prt.RenderTable '定义一个新表格
Dim cnt As integer = rt.Rows.Count - 1

[此贴子已经被作者于2010-1-10 12:10:44编辑过]

yangming

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/1/10 12:20:00 [显示全部帖子]

以下是引用程兴刚在2010-1-10 12:14:00的发言：
估计是他没有定义colnames列名称集合！

............   '前面是他原来的代码
dim colnames as New List(Of String)
For Each cl As Col In CurrentTable.Cols
    colnames.add(cl.Name)
Next  '加入该红色部分代码段
For T As Integer = 8 To ColNames.Count - 1 '逐列设置和填入内容
    If tb.Cols(ColNames(T)).IsNumeric then
        rs2.Cells(cnt,T).Text = tb.Compute("Sum(" & ColNames(T) & ")")
    End If
Next

我是想，如果他没定义此段，他是如何填表中数据的呢？真搞不懂楼主是如何做出程序的

yangming

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/1/10 12:49:00 [显示全部帖子]

以下是引用程兴刚在2010-1-10 12:24:00的发言：
他的问题为什么我不敢轻易动手：

1、要么没文件；
2、要么只有半截子代码；（一看里面的大部分变量就知道前面还有代码）
3、要么就一下子把整个很长的代码全贴出来，让人眼花缭乱，又苦于无测试文件（狐表增加、插入代码可谓所见即所得，为何不一边写代码以便测试，测试通不过的代码段加以说明再贴出来？），工作忙的时候，自然就是望而生畏了！

[此贴子已经被作者于2010-1-10 12:24:52编辑过]

我也曾帮过多次，有同感，楼主没有很好的学习帮助文件，所写的代码大多是论坛中问来的，代码堆积罗列在一起，特别乱，问题也是问的含糊不清，确实让人头疼

yangming

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/1/10 18:48:00 [显示全部帖子]

将最后五列改成双精度小数，然后加上以下代码在合计下面，网格线上面
For T As Integer = 8 To ColNames.Length - 1 '逐列设置和填入内容
    If tb.Cols(ColNames(T)).IsNumeric then
        rs2.Cells(cnt,T).Text = tb.Compute("Sum(" & ColNames(T) & ")")
    End If
Next

下一主题 >> << 上一主题

主题：如何求和？谢谢