以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  代码控制  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=89372)

--  作者：Hyphen --  发布时间：2016/8/20 9:25:00 --   Select Case e.DataCol.Name     Case "房间","项目","订单号" ,"楼层" ,"主材工艺" ,"蓝图号"         If Forms("窗口1").Open AndAlso Forms("窗口1").Controls("CheckBox1 ").Checked Then             Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("订单")             For Each dr As DataRow In drs                 dr(e.DataCol.Name) = e.NewValue             Next         End If End Select