以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]判定是否存在指定列名的列的代码如何写？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62296)
--  作者：huangfanzi
--  发布时间：2014/12/29 15:04:00
--  [求助]判定是否存在指定列名的列的代码如何写？
A表的DataColChanged

\'向工序合并表写入记录模块
If e.DataCol.Name = "审核" AndAlso e.DataRow("审核") = True Then
    Dim dr As DataRow = DataTables("工序合并表").AddNew
    For Each dc As DataCol In DataTables("工序合并表").DataCols
        If A表上存在名为dc.name的列 Then
            dr(dc.Name) = e.DataRow(dc.Name)
        End If
    Next
End If
[此贴子已经被作者于2014-12-29 15:04:08编辑过]
--  作者：新福星
--  发布时间：2014/12/29 15:09:00
--  
If Tables("A表").Cols.Contains("dc.Name")=True Then
--  作者：新福星
--  发布时间：2014/12/29 15:09:00
--  
If Tables("A表").Cols.Contains(dc.Name)=True Then
--  作者：huangfanzi
--  发布时间：2014/12/29 15:15:00
--  
谢谢 新福星