找出最大数值

Dannyclock

Dim pk As Currency, wt As Currency, cb As Currency
pk = Forms![job log_modify]![PKG] * 5
wt = Forms![job log_modify]![KGS] * 0.4
cb = Forms![job log_modify]![CBM] * 90
各位大大,我想问当计算出上面的3个值后,我只想要最大的那一个数值填入表单上新的栏位内,要怎样写?

heqing3000

iif(pk>wt, iif(pk>cb,pk,cb),iif(wt>cb,wt,cb))

roych

如果想写通用点的模块，数据不多的情况下，可以设置一个远远小于这三个数的一个数，例如：-100000，然后拿这几个数分别与它比较，如果比它大，就替换掉。否则就保留它，那么只需要一次循环即可找到最大值了。
http://www.office-cn.net/thread-119382-1-1.html
由于不需要排序，所以不建议使用排序算法。这样可能需要嵌套循环，效率较低。