比较多个字段，取最大值

tabtzj

需要比较多个字段，将最大值提取出来，借用了别人一个模块，代码如下：
Function Maximum(ParamArray FieldArray() As Variant)
    Dim I As Integer
    Dim currentVal As Variant
    currentVal = FieldArray(0)
   For I = 0 To UBound(FieldArray)
        If FieldArray(I) > currentVal Then
            currentVal = FieldArray(I)
        End If
    Next I
    Maximum = currentVal
End Function


出现个问题：如果第一个字段是空值，即使其他字段有数值，最大值仍显示为空，如图：


现求助两个问题：（1）怎么改代码使得查询结果正确 （2）怎么使查询结果跳出最大数对应的区，如B类客户三公司最大值126，显示对应的是虹口。
请高手帮忙，谢谢。
示例.rar (17.09 KB, 下载次数: 10)

2016-4-15 17:00 上传

点击文件名下载附件

roych

其实用Excel多好啊。非要用Access。。。用Access也罢了，表结构也不改下……我很怀疑，楼主学过表设计吗？