判断4个文本框中的值哪一个最大并更新表中数据

仇国平　发表于：2011-01-29 17:08:27 　

在窗体上有4个文本框，这4个文本框的值是由其它文本框计算而来的，我现在要判断哪一个文本框的值最大，并根据判断更新表中数据，我用以下方法只能判断第一个最大更新，老师帮忙看看！

bjzf1 = Val(Nz(Txt1.Value / 2)) + Val(Nz(Txt16.Value / 2)) + Val(Nz(Txt31.Value)) + Val(Nz(Txt46.Value)) + Val(Nz(Txt61.Value))
bjzf2 = Val(Nz(Txt2.Value / 2)) + Val(Nz(Txt17.Value / 2)) + Val(Nz(Txt32.Value)) + Val(Nz(Txt47.Value)) + Val(Nz(Txt62.Value))
bjzf3 = Val(Nz(Txt3.Value / 2)) + Val(Nz(Txt18.Value / 2)) + Val(Nz(Txt33.Value)) + Val(Nz(Txt48.Value)) + Val(Nz(Txt63.Value))
bjzf4 = Val(Nz(Txt4.Value / 2)) + Val(Nz(Txt19.Value / 2)) + Val(Nz(Txt34.Value)) + Val(Nz(Txt49.Value)) + Val(Nz(Txt64.Value))

   If bjzf1 > bjzf2 And bjzf1 > bjzf3 And bjzf1 > bjzf4 Then
    ssql = "UPDATE 初一各科分值表 SET 班级第一名分值= '200' where ID=17"
    DoCmd.SetWarnings False
    DoCmd.RunSQL ssql
    Else
    If bjzf2 > bjzf1 And bjzf2 > bjzf3 And bjzf2 > bjzf4 Then
     ssql = "UPDATE 初一各科分值表 SET 班级第一名分值= '200' where ID=10"
    DoCmd.SetWarnings False
    DoCmd.RunSQL ssql
    Else
    If bjzf3 > bjzf1 And bjzf3 > bjzf2 And bjzf3 > bjzf4 Then

     ssql = "UPDATE 初一各科分值表 SET 班级第一名分值= '200' where ID=15"
    DoCmd.SetWarnings False
    DoCmd.RunSQL ssql
    Else
    If bjzf4 > bjzf1 And bjzf4 > bjzf2 And bjzf4 > bjzf3 Then
     ssql = "UPDATE 初一各科分值表 SET 班级第一名分值= '200' where ID=16"
    DoCmd.SetWarnings False
    DoCmd.RunSQL ssql


    End If
    End If
    End If




    End If

Top

煮江品茶发表于：2011-01-30 10:49:48

dim A(0 to 3)
dim MaxA
dim i as long
dim N as long
A(0)=Val(Nz(Txt1.Value / 2)) + Val(Nz(Txt16.Value / 2)) + Val(Nz(Txt31.Value)) + Val(Nz(Txt46.Value)) + Val(Nz(Txt61.Value))
A(1)= Val(Nz(Txt2.Value / 2)) + Val(Nz(Txt17.Value / 2)) + Val(Nz(Txt32.Value)) + Val(Nz(Txt47.Value)) + Val(Nz(Txt62.Value))
A(2)= Val(Nz(Txt3.Value / 2)) + Val(Nz(Txt18.Value / 2)) + Val(Nz(Txt33.Value)) + Val(Nz(Txt48.Value)) + Val(Nz(Txt63.Value))
A(3)=Val(Nz(Txt4.Value / 2)) + Val(Nz(Txt19.Value / 2)) + Val(Nz(Txt34.Value)) + Val(Nz(Txt49.Value)) + Val(Nz(Txt64.Value))
DoCmd.SetWarnings False
MaxA=0
for i=0 to 3
    if MaxA<A(i) then
MaxA=A(i)
        select case i
            case 0
                N=17
            case 1
                N=10
            case 2
                N=15
            case 3
                N=16
         end select
    end if
next
ssql = "UPDATE 初一各科分值表 SET 班级第一名分值= '200' where ID=" & N
DoCmd.RunSQL ssql

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

判断4个文本框中的值哪一个最大并更新表中数据