Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:这是啥意思?

1楼
ahljy351 发表于:2008/10/28 16:55:00

图片点击可在新窗口打开查看此主题相关图片如下:qq截图未命名.jpg
图片点击可在新窗口打开查看
2楼
狐狸爸爸 发表于:2008/10/28 16:57:00
da这个名字错了,或者你没有定义这个变量
3楼
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]")
4楼
狐狸爸爸 发表于: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
5楼
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编辑过]
6楼
ahljy351 发表于:2008/10/28 19:30:00
楼上的能否在代码后加以备注说明?我不太懂,只有按最原始的代码一步步写。呵呵,不会精简。
共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01953 s, 2 queries.