主题：[求助]列条件求助

窗口表的类型Normal，有两段代码：

 

1、指定"AAAA"列，执行代码（或者换一种方式：遍历列后，如果列属性是数值型，那么... ）
Dim t As Table = CurrentTable  

If t.Cols.Name = "AAAA" Then   

    Syscmd.Edit.SerialFill()    '序列填充
Else
     ......
End If

 

--------------------------------------------------------------------

2、如果窗口表的“保存历史”列的逻辑值为false，那么清除数据
If e.Form.Controls("Table1").Cols("保存历史") = False Then

Dim dt As DataTable = DataTables("AAAA")
For Each dr As DataRow In dt.datarows
    For Each dc As DataCol In dt.datacols
        If dc.Expression = "" Then
            dr(dc.name) = Nothing
        End If
    Next
Next
End If

 

请老师指教！谢谢！