Dim fdr = DataTables("生产日报表").Find("", "生产数 desc")
或者
Dim num = DataTables("生产日报表").compute("max(生产数)")