Dim str As String = "Select * From (Select Row_Number() Over(Order by {项目表}.项目编号 desc ) As RowNum,{项目表}.项目编号,项目名称,建设单位,项目_金额, 联系人,联系电话,备注 From {项目表} Left JOIN {项目跟踪表} ON {项目表}.项目编号 = {项目跟踪表}.项目编号 Where 负责人 = '" & username & "' Group By {项目表}.项目编号,跟踪时间) As a"