老师，
我想从三个子表——表B、C、D中的日期列中找出最大值（最近日期）填入父表——表A的末次订购日期，代码如下：
Dim dr As DataRow
dr = DataTables("表A").Find("[编号] = '" & e.DataRow("编号") & "'" )
Dim drs1 = DataTables("表B").Select("[编号] = '" & e.DataRow("编号") & "'","日期 DESC")
Dim drs2 = DataTables("表C").Select("[编号] = '" & e.DataRow("编号") & "'","日期 DESC")
Dim drs3 = DataTables("表D").Select("[编号] = '" & e.DataRow("编号") & "'","日期 DESC")
If dr Is Nothing Then
Return
Else
If drs1.count > 0 Andalso drs2.count > 0 Andalso drs3.count > 0 Then
dr("末次订购日期") = 最大值（三者中）
End If
End if
请问，三者中最大值如何写代码？
[此贴子已经被作者于2017/4/7 21:16:58编辑过]
加好友 
发短信
Post By：2017/4/7 21:16:00 [显示全部帖子]
