主题：[求助]选中的行，用表达式怎么写。

    Dim i As Integer
    Dim ph As String
    For Each r As Row In tb1.GetCheckedRows
        If r.IsNull("生产任务单号") = False Then
            i += 1
            ph = r("生产任务单号")
        End If
    Next

上面是我用循环计算出来的，现在想用表达式做，怎么做。

Dim tb As Table = Tables(e.Form.Name & "_" & )
Dim dt As DataTable = tb.DataTable
Dim r As Row = tb.Current

Dim s As Integer = dt.Compute("count(生产任务单号)",选中的行)    选中的行，用表达式怎么写。