Office中国论坛/Access中国论坛

标题: 找出最大数值 [打印本页]

作者: Dannyclock 时间: 2016-6-3 15:41
标题: 找出最大数值
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 时间: 2016-6-3 16:31
iif(pk>wt, iif(pk>cb,pk,cb),iif(wt>cb,wt,cb))

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)