主题：请教下如何实现统计功能

整个界面如下图：

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

当我单击窗口中的“刷新”button后，如何实现将下图中的

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

表“营养素分析表_临时”中比如“总能量”列的所有一列的全部加起来，然后以下图窗口中的“日期”控件中的日期为一条记录写入到表“营养素作图统计表”中的“能量”列中，如果已经有日期的话就覆盖写入，没有就的话就新增，保证一天只有一条记录。

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

文件在下面

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:孕妇营养营养食谱.foxdb

用find查找对应日期的行，如果有找到就更新，否则新增

我临时表没有日期哎

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(总能量)")

太谢谢了，男神。。。