查看完整版本: 非常简单的加法函数，报错

非常简单的加法函数，报错

请大家帮忙看看，这个简单的逻辑有啥问题？
验证的时候总是说我缺少end，郁闷

Function Totals(X,Y)

    X = GetFieldValue(X).GetValue

     If X = "1" Then X = 1 //如果接受到的字符是1，就将行变量的数值写成1
         Else
         X = 0  //如果接受其他的字符，就将x变量的数值写成0
         End If

    Y = GetFieldValue(Y).GetValue

     If Y = "1" Then Y = 1
         Else
         Y = 0   
         End If

    Totals= X+Y

    End Function

报错：
全局 HookDef“total”：HookDef 语言处理器返回验证失败：
缺少 'End' Result code is 0x80020101

[[i] 本帖最后由 没有蛀牙 于 2008-5-7 11:26 编辑 [/i]]

Function Totals(field1,field2)
   
    A=0
    B=0

    X = GetFieldValue(field1).GetValue
    if X="1" then A=1
     
    Y = GetFieldValue(field2).GetValue
     if Y="1" then  B=1

    Totals= A+B

    End Function

回复 楼主 的帖子

If X = "1" Then X = 1 //如果接受到的字符是1，就将行变量的数值写成1
是否应该是 If X = ="1" 而不是一个等号？

“If X = "1" Then X = 1 //如果接受到的字符是1，就将行变量的数值写成1“
这 X  一会是字符,一会是数字的?有2种类型?角色像2楼说的那样分成2个变量吧~!?

回复 地毯 的帖子

我也感觉是这样  一开始X是字符串变量 后来又成了整型，感觉应该是这个问题