标题：请教杂项中自动计算的代码如何写？

1楼

20090530 发表于：2011/8/31 9:23:00

请教杂项中自动计算的代码如何写？

2楼

yangming 发表于：2011/8/31 9:34:00

http://www.foxtable.com/help/topics/0545.htm

示例二

你是问的菜单中的自动计算吧？

在菜单的系统事件：AfterSelRangeChange中的代码

Dim t As Table
RibbonMenu.StatusBar.Message3 = ""
Vars("SysUpdateAggregate") = False
If e.Table IsNot CurrentTable OrElse CurrentTable Is Nothing Then
    Return
Else
    t = CurrentTable
End If
If t.TopRow = t.BottomRow AndAlso t.LeftCol = t.RightCol Then
    Return
End If
For c As Integer = t.LeftCol To t.RightCol
    If c < 1 Then
        Continue For
    End If
    If t.Cols(c).IsNumeric = False Then
        Return
    End If
Next
Vars("SysUpdateAggregate") = True

然后再在各选项中的代码，比如自动计算中的代码：

RaiseSystemEvent(CurrentTable,SystemEventTypeEnum.AfterSelRangeChange)

[此贴子已经被作者于2011-8-31 9:53:56编辑过]

3楼

20090530 发表于：2011/8/31 9:56:00

谢谢您！

我的意思是比如有40名选手，12个评委打分，选出每个队员的最高分、最低分，最终成绩为去掉最高分、最低分的平均值，如何写？

4楼

yangming 发表于：2011/8/31 9:58:00

以下是引用20090530在2011-8-31 9:56:00的发言：

谢谢您！

我的意思是比如有40名选手，12个评委打分，选出每个队员的最高分、最低分，最终成绩为去掉最高分、最低分的平均值，如何写？

你的意思和题目差的太远了，呵，最好做出狐表文件上传

5楼

狐狸爸爸 发表于：2011/8/31 10:00:00

将表设计好，输入一些测试数据，然后传上来，我可以帮你做一下。

[此贴子已经被作者于2011-8-31 10:51:15编辑过]

6楼

20090530 发表于：2011/8/31 10:37:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:成绩.xls

有劳了！

7楼

紙上不談兵 发表于：2011/8/31 11:25:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

8楼

20090530 发表于：2011/8/31 11:36:00

简洁，精炼。。。

学习的楷模！

9楼

169163 发表于：2011/8/31 16:09:00

前面的例子有点特殊，比如评委分别为张三、李四、王五。。。，又该如何？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:成绩.xls

10楼

hhbb 发表于：2011/8/31 16:39:00

Dim Ls As String ="张三,李四,王五,马七,杨八,李二,财经,和平,何亮,黑乎,白板,高挂"

If ("," & Ls & ",").IndexOf("," & e.DataCol.Name & ",") > -1 Then

Dim dr As DataRow = e.DataRow

dr("最高分") = dr("张三")

dr("最低分") = dr("张三")

For Each s As String In Ls.split(",")

dr("最高分") =Math.Max(dr("最高分"),dr(s))

dr("最低分") =Math.Min(dr("最低分"),dr(s))

End If

[此贴子已经被作者于2011-8-31 16:55:47编辑过]

共11 条记录, 每页显示 10 条, 页签: [1] [2]