- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 有点复杂的计算过程如何实现 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100337)
-- 发布时间：2017/5/9 20:25:00
-- 有点复杂的计算过程如何实现
界面如下图
此主题相关图片如下：1.png
当单击计算按钮的时候，
第一步，根据选中的项目，到对应的表“热量标准表”里找到对应的数值
此主题相关图片如下：qq截图20170509081703.png
第二步，根据“性别”和“年龄”到对应的表“系数表”里找到对应的数值，先找到年龄段，然后分男女取到值
此主题相关图片如下：qq截图20170509081904.png
第三步，将对应项目的“时间”乘上前面取到的两个值得的一个项目的热量值
第四步，将一个大类的所有项目热量值加起来显示在表下的“总热量”的文本框内
先谢谢各位老师了，这个功能折磨了好几天了，，，
源文件一并上传了
再次谢过
[此贴子已经被作者于2017/5/9 20:26:44编辑过]
-- 发布时间：2017/5/9 20:29:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2017/5/9 20:43:00
--
顺便问个弱智的问题，我要求和写入到文本框里，这样写可以吗？
Dim sj As WinForm.TextBox = e.Form.Controls("TextBox2").value
sj.Value = DataTables("有氧运动").Compute("sum("时间")")
-- 发布时间：2017/5/9 22:02:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2017/5/10 19:37:00
--
您好，提示版本过高打不开，我的开发版是15年的，还没续费，能麻烦您贴下代码吗？谢谢您了
-- 发布时间：2017/5/10 19:47:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:eventcode.zip |
-- 发布时间：2017/5/10 20:25:00
--
我把代码复制进去了，但是报错了
此主题相关图片如下：qq截图20170510202037.png
-- 发布时间：2017/5/10 20:26:00
--
我看了下代码里面没有textbox12的信息呀
-- 发布时间：2017/5/10 20:39:00
--
改了一下列名
此主题相关图片如下：qq截图20170510203921.png
-- 发布时间：2017/5/10 20:47:00
--
小声的问下，
此主题相关图片如下：qq截图20170510204530.png
但是总热能没有计算出来