以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码控制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89372)
--  作者：yifan3429
--  发布时间：2016/8/20 8:32:00
--  代码控制
Select Case e.DataCol.Name 
    Case "房间","项目","订单号" ,"楼层" ,"主材工艺" ,"蓝图号" 
        Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("订单"))
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.NewValue
        Next
End Select


代码放在  DataColChanged   中自动更新

客户希望 通过 CheckBox1 可以控制它  我放在窗口  代码如何关联控制  还需要请教！
 
--  作者：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