主题：复选框选中后怎么找出最早的日期

不想增加列的话，可以这样：

Dim dt As Date = #12/31/9999#
For Each r As Row In Tables("窗口1_Table1").GetCheckedRows
    If r.isnull("日期") = False AndAlso r("日期") < dt Then
        dt = r("日期")
    End If
Next
output.show(dt)