以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  当表A的C列不为空时，那么这行会自动复制到表B  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100103)
--  作者：jick0526
--  发布时间：2017/5/4 19:30:00
--  当表A的C列不为空时，那么这行会自动复制到表B
老师，请问下，当表A的C列不为空时，那么这行会自动复制到表B，代码要怎么写，谢谢
--  作者：wyz20130512
--  发布时间：2017/5/4 20:13:00
--  
1.表A与表B结构完全一致；
2.在表A的DataColChanged事件中写代码：
Select Case e.DataCol.Name
    Case "第一列"
        If e.DataRow.IsNull("第一列") = False Then
            Dim dr As DataRow = DataTables("表B").AddNew()
            For Each dc As DataCol In e.DataTable.DataCols
                dr(dc.Name) = e.DataRow(dc.Name)
            Next
        End If
End Select
--  作者：有点色
--  发布时间：2017/5/4 20:15:00
--  

 参考

 

http://www.foxtable.com/webhelp/scr/2292.htm