以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  排除表达式列的条件语句  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170078)

--  作者:wangglby
--  发布时间:2021/7/11 11:37:00
--  排除表达式列的条件语句
在进行跨表引用,表A,B列完全相同,都有表达式列,把表A所有列(不是表达式的列),引用到表B(不是表达式的列),想写一个排除表达式列的条件语句,怎么写
--  作者:有点蓝
--  发布时间:2021/7/11 21:12:00
--  
For Each dr1 As DataRow In DataTables("表A").datarows
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For Each dc As DataCol In DataTables("表A").DataCols
        If dc.Expression > "" Then Continue For
        dr2(dc.Name) = dr1(dc.name)
    Next
Next