狐表的:
Current
返回当前行。
例如:
Output.Show(CurrentTable.Current("客户"))
显示当前表当前行的客户列内容。
Tables("产品.订单").Current("数量") = 100
将关联表"产品.订单"当前行的“数量”列内容设为100
在汇总模式下,Current只返回数据行,不返回分组行;如果你选择了分组行,此时Current返回Nothing。
所以为了在命令窗口显示当前表当前行的客户列内容,“完美”的代码是:
If CurrentTable.Current
IsNot Nothing Then
Output.Show(CurrentTable.Current("客户"))
End If
Select
以集合的形式,返回所有符合指定条件的行。
语法:
Select(Filter)
Select(Filter,Sort)
Filter: 条件表达式,请参考表达式的运算符和函数 和 条件表达式。
Sort: 可选参数,指定排序方式
我们经常需要对符合某一条件的记录,统一进行处理,此时Select方法就派上用场了。
示例一
例如,对于1999年1月4日订购PD01的订单,希望将其折扣统一设置为0.12,代码为:
Dim drs As List(Of
DataRow)
drs = DataTables("订单").Select("[产品] = 'PD01' And [日期]= #1/4/1999#")
For Each dr As Datarow In drs
dr("折扣") = 0.12
Next