- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 向下填充， TIAN， please come here :) (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65152)
-- 发布时间：2015/3/10 14:36:00
-- 向下填充， TIAN， please come here :)
这样一个表，
此主题相关图片如下：777.png
相同日期有几行数据，当在第一行的 休息 列 输入内容后，会自动填入下面同一个日期的 休息 列。
求代码：）
-- 发布时间：2015/3/10 14:48:00
--
DatacolChanged
If e.DataCol.Name = "休息"
systemready = False
For Each dr As DataRow In DataTables("表A").Select("日期 = #" & e.DataRow("日期") & "#")
dr("休息") = e.DataRow("休息")
Next
systemready = True
End If
-- 发布时间：2015/3/10 14:53:00
--
thank you very much, darling tiantian :)