这是啥意思？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这是啥意思？

共有22806人关注过本帖树形打印复制链接主题：这是啥意思？

ahljy351

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：187 积分：1489 威望：0 精华：0 注册：2008/9/2 7:52:00

这是啥意思？ 发帖心情

Post By：2008/10/28 16:55:00 [只看该作者]

此主题相关图片如下：qq截图未命名.jpg

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2008/10/28 16:57:00 [只看该作者]

da这个名字错了，或者你没有定义这个变量

ahljy351

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：187 积分：1489 威望：0 精华：0 注册：2008/9/2 7:52:00

Post By：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]")

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：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

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：187 积分：1489 威望：0 精华：0 注册：2008/9/2 7:52:00

Post By：2008/10/28 19:30:00 [只看该作者]

楼上的能否在代码后加以备注说明？我不太懂，只有按最原始的代码一步步写。呵呵，不会精简。

下一主题 >> << 上一主题

主题：这是啥意思？