以下是引用lsy在2013-9-11 7:44:00的发言：
Dim min As Date = DataTables("早餐登记").Compute("Max(用餐日期)","客户id = '" & e.DataRow("客户ID") & "'")
Dim m1 As Date = DataTables("客房订单").Compute("Max(入住日期)","客户id = '" & e.DataRow("客户ID") & "'")
Dim m2 As Date = DataTables("接机登记").Compute("Max(接机日期)","客户id = '" & e.DataRow("客户ID") & "'")
Dim m3 As Date = DataTables("景点预订").Compute("Max(出发日期)","客户id = '" & e.DataRow("客户ID") & "'")
Dim dts() As Date = (min,m1,m2,m3}
Array.Sort(dts)
e.DataRow("最早日期") = dts(0)
[此贴子已经被作者于2013-9-11 7:45:53编辑过]
你看你，非要大神出手才解决
加好友 
发短信
Post By：2013/9/11 1:27:00 [显示全部帖子]
