主题：筛选问题

  老大,我有两个表  一模一样的字段  一模一样的数据

设置在CurrentChanged事件：

 

Dim r As Row = e.Table.Current
if r IsNot  Nothing Then
     dim wz AS integer = Tables("另一个表").Findrow("某某列 = '" & r("某某列") & "'")
     If wz >=0 Then
           Tables("另一个表"). Position = wz
     end if
End if

老大你这个如果是指定列,我就不问了,已经搞定 昨日的代码没有一点问题,问题是我没有排除空值,所以找不到了,后来加了判断  就可以了.