主题：如何获取一个日期列中的最小/大日期

Dim t1 As Table = Tables("表A")
Dim t2 As DataTable = DataTables("表B")
Dim r1 As Row = t1.AddNew
'Dim r2 As DataRow = t2.Find("","日期") '最远日期

Dim r2 As DataRow = t2.Find("","日期 desc") '最近日期
r1("日期") = r2("日期")