- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教下如何实现统计功能 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=98445)
-- 发布时间：2017/3/30 8:23:00
-- 请教下如何实现统计功能
整个界面如下图：
此主题相关图片如下：qq截图20170330080926.png
当我单击窗口中的“刷新”button后，如何实现将下图中的
此主题相关图片如下：qq截图20170330080948.png
表“营养素分析表_临时”中比如“总能量”列的所有一列的全部加起来，然后以下图窗口中的“日期”控件中的日期为一条记录写入到表“营养素作图统计表”中的“能量”列中，如果已经有日期的话就覆盖写入，没有就的话就新增，保证一天只有一条记录。
此主题相关图片如下：qq截图20170330081006.png
文件在下面
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:孕妇营养营养食谱.foxdb |
[此贴子已经被作者于2017/3/30 8:42:00编辑过]
-- 发布时间：2017/3/30 9:44:00
--
-- 发布时间：2017/3/30 10:10:00
--
以下是引用有点蓝在2017/3/30 9:44:00的发言：
用find查找对应日期的行，如果有找到就更新，否则新增
我临时表没有日期哎
-- 发布时间：2017/3/30 10:41:00
--
Dim d As Date = e.Form.Controls("DateTimePicker1").value
Dim dr As DataRow = DataTables("营养素作图统计表").find("日期 = #" & d & "#")
If dr Is Nothing Then
dr = DataTables("营养素作图统计表").addnew
dr("日期") = d
End If
dr("能量") = DataTables("营养素分析表_临时").Compute("sum(总能量)")
-- 发布时间：2017/3/30 12:32:00
--
太谢谢了，男神。。。