UltraGrid对筛选后的纪录进行操作:
'=====获取筛选后的记录
Private Sub UltraButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UltraButton1.Click
Dim rw As Infragistics.Win.UltraWinGrid.UltraGridRow
For Each rw In UltraGrid1.Rows
If rw.HiddenResolved = False Then
'=====记录可见
MessageBox.Show(rw.Cells("ContactName").Value)
Else
'=====记录不可见
End If
Next
End Sub