- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77776)
-- 发布时间：2015/11/25 11:22:00
-- [求助]
请老师帮我写个代码（或另作几个按钮的代码），情况是我做了一个温室管理，里面有两张表，一个是“温度湿度实时情况”表，另一个是“温室记录”表。要求是“温室记录”表里点击（日期1），就把“温度湿度实时情况”表里的内容对应添加到“温室记录”表里（包括“日期1，温度1，湿度1，值班人1”这四列的
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:温室管理.rar |
内容）
-- 发布时间：2015/11/25 11:26:00
--
补充：点击（日期2），就把“温度湿度实时情况”表里的内容对应添加到“温室记录”表里（包括“日期2，温度2，湿度2，值班人2”这四列的内容）；点击（日期3），就把“温度湿度实时情况”表里的内容对应添加到“温室记录”表里（包括“日期3，温度3，湿度3，值班人3”这四列的内容），点击（日期4），就把“温度湿度实时情况”表里的内容对应添加到“温室记录”表里（包括“日期4，温度4，湿度4，值班人4”这四列的内容）
-- 发布时间：2015/11/25 12:01:00
--
补充：“温度湿度实时情况”表里的内容是变化的，而“温室记录”是把变化后的内容，记录下来
-- 发布时间：2015/11/25 12:10:00
--
DataColChanged事件
If e.DataCol.Name Like "日期*" Then
Dim idx As String = right(e.DataCol.Name,1)
Dim fdr As DataRow = DataTables("温度湿度实时情况").find("时间段 = \'" & e.DataRow("时间段") & "\' and 日期 = #" & e.NewValue & "#")
If fdr IsNot Nothing Then
e.DataRow("温度" & idx) = fdr("温度")
e.DataRow("湿度" & idx) = fdr("湿度")
e.DataRow("值班人" & idx) = fdr("值班人")
End If
End If
-- 发布时间：2015/11/25 15:14:00
--
谢谢老师，辛苦了