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

窗口表的类型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

 

请老师指教！谢谢！

1、

 

Dim t As Table = CurrentTable
For Each c As Col In t.Cols
    If c.IsNumeric Then
        Syscmd.Edit.SerialFill()    '序列填充
    Else
       
    End If
Next

2、

 

If e.Form.Controls("Table1").Table.Current("保存历史") = False Then

老师，第二段代码没起作用，什么原因？

    If e.Form.Controls("Table1").Table.Current("保存历史") = False Then

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:清除 - 副本.table

Dim t As Table = e.Form.Controls("Table1").Table
For Each dr As Row In t.rows
    If dr("保存历史") = False Then
        For Each dc As Col In t.cols
            If dc.DataCol.Expression = "" Then
                dr(dc.name) = Nothing
            End If
        Next
    End If
Next