主题：[求助]

请老师帮我写个代码（或另作几个按钮的代码），情况是我做了一个温室管理，里面有两张表，一个是“温度湿度实时情况”表，另一个是“温室记录”表。要求是“温室记录”表里点击（日期1），就把“温度湿度实时情况”表里的内容对应添加到“温室记录”表里（包括“日期1，温度1，湿度1，值班人1”这四列的

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

点击浏览该文件:温室管理.rar

内容）

补充：点击（日期2），就把“温度湿度实时情况”表里的内容对应添加到“温室记录”表里（包括“日期2，温度2，湿度2，值班人2”这四列的内容）；点击（日期3），就把“温度湿度实时情况”表里的内容对应添加到“温室记录”表里（包括“日期3，温度3，湿度3，值班人3”这四列的内容），点击（日期4），就把“温度湿度实时情况”表里的内容对应添加到“温室记录”表里（包括“日期4，温度4，湿度4，值班人4”这四列的内容）

补充：“温度湿度实时情况”表里的内容是变化的，而“温室记录”是把变化后的内容，记录下来

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

谢谢老师，辛苦了