以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  这是啥意思？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=998)

--  作者：ahljy351 --  发布时间：2008/10/28 16:55:00 --  这是啥意思？ 此主题相关图片如下：qq截图未命名.jpg

--  作者：狐狸爸爸 --  发布时间：2008/10/28 16:57:00 --   da这个名字错了，或者你没有定义这个变量

--  作者：ahljy351 --  发布时间：2008/10/28 17:17:00 --   if vars("h")="×" then    e.form.controls("zqda").text = Eval("[!x] * [!y]")    dim da as integer = Eval("[!x] * [!y]") elseif vars("h")="÷" then     e.form.controls("zqda").text = Eval("[!x] / [!y]")     dim da as integer = Eval("[!x] / [!y]") elseif vars("h")="-" then      e.form.controls("zqda").text = Eval("[!x] - [!y]")      dim da as integer = Eval("[!x] - [!y]") else      e.form.controls("zqda").text = Eval("[!x] + [!y]")      dim da as integer = Eval("[!x] + [!y]") end if 上面的这段代码设置后就出现在上面的提示。但是单独用下面的代码则正确，不知问题在哪？ 　　e.form.controls("zqda").text = Eval("[!x] + [!y]")      dim da as integer = Eval("[!x] + [!y]")

--  作者：狐狸爸爸 --  发布时间：2008/10/28 17:26:00 --   dim da as integer if vars("h")="×" then    e.form.controls("zqda").text = Eval("[!x] * [!y]")     da= Eval("[!x] * [!y]") elseif vars("h")="÷" then     e.form.controls("zqda").text = Eval("[!x] / [!y]")     da = Eval("[!x] / [!y]") elseif vars("h")="-" then      e.form.controls("zqda").text = Eval("[!x] - [!y]")      da = Eval("[!x] - [!y]") else      e.form.controls("zqda").text = Eval("[!x] + [!y]")      da = Eval("[!x] + [!y]") end if

--  作者：don --  发布时间：2008/10/28 18:54:00 --   Dim da as integer if "+-×÷".IndexOf(vars("h")) >-1 then    Dim n As Double = Eval("[!x]" & vars("h").Replace("×","*").Replace("÷","/") & "[!y]")    e.Form.controls("zqda").text = n    da= n end if [此贴子已经被作者于2008-10-28 19:02:12编辑过]

--  作者：ahljy351 --  发布时间：2008/10/28 19:30:00 --   楼上的能否在代码后加以备注说明？我不太懂，只有按最原始的代码一步步写。呵呵，不会精简。