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

Dim dr1 As DataRow
For Each r As Row In Tables("窗口1_Table1").GetCheckedRows
    dr1 = Tables("窗口1_Table1").DataTable.Find(""#","日期")
    If dr1 IsNot Nothing Then '如果找到的话
       e.Form.Controls("DateTimePicker1").Value = dr1("日期")
    End If
Next

想找出窗口中的Table复选框已勾选最早的日期,并将值填到日期控件中,代码该怎么写?

感谢老爹的代码可以实现要求.

根据BIN老师跟y2287958老师的建议,学生写出下面的代码:

For Each r As Row In Tables("窗口1_Table1").GetCheckedRows
    r("逻辑列") = True
Next

Dim dr As DataRow
dr = Tables("窗口1_Table1").DataTable.Find("逻辑列 = True","日期")
If dr IsNot Nothing Then '如果找到的话
    e.Form.Controls("DateTimePicker1").Value = dr("日期")
End If

同时学会两种做法,感谢三位老师