有点复杂的计算过程如何实现 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

界面如下图

此主题相关图片如下：1.png

当单击计算按钮的时候，

第一步，根据选中的项目，到对应的表“热量标准表”里找到对应的数值

此主题相关图片如下：qq截图20170509081703.png

第二步，根据“性别”和“年龄”到对应的表“系数表”里找到对应的数值，先找到年龄段，然后分男女取到值

此主题相关图片如下：qq截图20170509081904.png

第三步，将对应项目的“时间”乘上前面取到的两个值得的一个项目的热量值

第四步，将一个大类的所有项目热量值加起来显示在表下的“总热量”的文本框内

先谢谢各位老师了，这个功能折磨了好几天了，，，

源文件一并上传了

再次谢过

[此贴子已经被作者于2017/5/9 20:26:44编辑过]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

顺便问个弱智的问题，我要求和写入到文本框里，这样写可以吗？

Dim sj As WinForm.TextBox = e.Form.Controls("TextBox2").value

sj.Value = DataTables("有氧运动").Compute("sum("时间")")

您好，提示版本过高打不开，我的开发版是15年的，还没续费，能麻烦您贴下代码吗？谢谢您了

我把代码复制进去了，但是报错了
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20170510202037.png

我看了下代码里面没有textbox12的信息呀

小声的问下，

此主题相关图片如下：qq截图20170510204530.png

但是总热能没有计算出来

、谢谢您好，不好意思，上面计算过程还少了一个环节，就是还需要乘上“体重”，我早界面上忘记增加了，能麻烦您修改下代码吗

此主题相关图片如下：qq截图20170510212858.png

还有就是当点击“生成图表”能根据“总热量”和“总时间”，分别生成百分比饼状图在界面的右边的框架里面吗，谢谢

[此贴子已经被作者于2017/5/10 21:32:08编辑过]

谢谢，可以了，我限制下显示的长度值

加了这段代码

Forms("主窗体").Controls("TextBox11").FormatString = "#0.00"

为什么显示的还是不变呢？

此主题相关图片如下：qq截图20170510215147.png

[此贴子已经被作者于2017/5/10 21:52:31编辑过]

有点色版主您好，关于作图我按照帮助文档来弄，先把控件的数值写入一张临时表，但是请问我如何顺序写入第二条记录呢？

我建的临时表是这样的

此主题相关图片如下：qq截图20170511200247.png

我的代码是这样的

Dim rn1 As Integer = val(e.Form.Controls("TextBox11").text)

Dim rn2 As Integer = val(e.Form.Controls("TextBox21").text)

Dim rn3 As Integer = val(e.Form.Controls("TextBox31").text)

Dim rn4 As Integer = val(e.Form.Controls("TextBox41").text)

Dim sj1 As Integer = val(e.Form.Controls("TextBox12").text)

Dim sj2 As Integer = val(e.Form.Controls("TextBox22").text)

Dim sj3 As Integer = val(e.Form.Controls("TextBox32").text)

Dim sj4 As Integer = val(e.Form.Controls("TextBox42").text)

Tables("作图用临时表").Current("项目") = "有氧运动"

Tables("作图用临时表").Current("总热能") = rn1

Tables("作图用临时表").Current("总时间") = sj1

Tables("作图用临时表").Current("项目") = "力量运动"

Tables("作图用临时表").Current("总热能") = rn2

Tables("作图用临时表").Current("总时间") = sj2

Tables("作图用临时表").Current("项目") = "柔韧运动"

Tables("作图用临时表").Current("总热能") = rn3

Tables("作图用临时表").Current("总时间") = sj3

Tables("作图用临时表").Current("项目") = "日常活动"

Tables("作图用临时表").Current("总热能") = rn4

Tables("作图用临时表").Current("总时间") = sj4

[此贴子已经被作者于2017/5/11 20:03:38编辑过]

主题：有点复杂的计算过程如何实现