以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  能解释下如下代码含义吗？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72978)
--  作者：hnpykfq123
--  发布时间：2015/8/10 11:11:00
--  能解释下如下代码含义吗？

Dim dr As DataRow = Args(0)
For Each dc As DataCol In dr.DataTable.DataCols
    If dc.Expression = "" Then \'有表达式的列,不能直接赋值
        dr(dc.Name) = Nothing
    End If
Next 
--  作者：大红袍
--  发布时间：2015/8/10 11:13:00
--  
 循环每一列，把dr那一行的内容全部删除。
--  作者：hnpykfq123
--  发布时间：2015/8/10 11:21:00
--  
多谢！能再详细解释这三句的含义吗？尤其是下面第一句。

For Each dc As DataCol In dr.DataTable.DataCols
    If dc.Expression = "" Then \'有表达式的列,不能直接赋值
        dr(dc.Name) = Nothing
--  作者：大红袍
--  发布时间：2015/8/10 11:24:00
--  

参考

 

http://www.foxtable.com/help/topics/0226.htm

 

循环所有的列；

如果此列不是表达式列；

设置为空值