每项指标得分为1分，共120指标，满分120分，最后总得分换算成100分的公式是=总得分*（sum（"得分")*100/120,考虑到用户指标分类会动态增减，把分母120动态化改成如下代码生成 AA
Dim AA As String = e.Table.DataTable.Compute("COUNT(指标分类)", "单位名称='" & e.Table.Current ("单位名称") & "'")
在CurrentChanged事件的代码
Dim AA As String = e.Table.DataTable.Compute("COUNT(指标分类)", "单位名称='" & e.Table.Current ("单位名称") & "'")
If e.Table.Current IsNot Nothing Then
If Forms("窗口1").Opened Then
Forms("窗口1").Controls("Label1").text = e.Table.Current ("单位名称") & "评审得分:" & e.Table.DataTable.Compute("sum(得分)*100/AA", "单位名称='" & e.Table.Current ("单位名称") & "'")
End If
End If
结果在“窗口1”中点击Table1，报错“找不到AA列”
加好友 
发短信
Post By：2022/6/14 21:39:00 [只看该作者]
