|
Dim idxs As String = "-1,"
For Each ary() As String In DataTables("公益林").GetValues("乡|村")
Dim count As Integer = 0
For Each dr As DataRow In DataTables("公益林").Select("乡 = '" & ary(0) & "' and 村 = '" & ary(1) & "'", "补助金额 desc")
idxs &= dr("_Identify") & ","
count += 1
If count = 5 Then
Exit For
End If
Next
Next
Tables("公益林").Filter = "_Identify in (" & idxs.trim(",") & ")"
Tables("公益林").sort = "乡,村,补助金额 desc"
Tables("公益林").SaveExcel("d:\test.xls", "公益林")
|
加好友 
发短信
Post By：2016/5/31 16:52:00 [只看该作者]
