以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何求和？谢谢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5755)
--  作者：雨中的泪
--  发布时间：2010/1/9 23:01: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



提示错误！！！
版主帮帮忙谢谢
--  作者：雨中的泪
--  发布时间：2010/1/10 11:28:00
--  
提示错误！！！
版主帮帮忙谢谢
--  作者：雨中的泪
--  发布时间：2010/1/10 11:28:00
--  
求和如何实现？
谢谢
--  作者：雨中的泪
--  发布时间：2010/1/10 11:32:00
--  
筛选出来的行，如何实现求和？
谢谢
--  作者：雨中的泪
--  发布时间：2010/1/10 11:49:00
--  

版主帮帮忙
谢谢
--  作者：yangming
--  发布时间：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编辑过]
--  作者：程兴刚
--  发布时间：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
--  发布时间：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

我是想，如果他没定义此段，他是如何填表中数据的呢？真搞不懂楼主是如何做出程序的
--  作者：程兴刚
--  发布时间：2010/1/10 12:24:00
--  
他的问题为什么我不敢轻易动手：

1、要么没文件；
2、要么只有半截子代码；（一看里面的大部分变量就知道前面还有代码）
3、要么就一下子把整个很长的代码全贴出来，让人眼花缭乱，又苦于无测试文件（狐表增加、插入代码可谓所见即所得，为何不一边写代码以便测试，测试通不过的代码段加以说明再贴出来？），工作忙的时候，自然就是望而生畏了！
[此贴子已经被作者于2010-1-10 12:24:52编辑过]
--  作者：yangming
--  发布时间：2010/1/10 12:49:00
--  
以下是引用程兴刚在2010-1-10 12:24:00的发言：
他的问题为什么我不敢轻易动手：

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

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