[求助] currentchanged 事件 Post By:2024/5/8 9:14:00 [只看该作者]
老师,下面的代码是不是对筛选后的当前行没用?筛选前可以,筛选后就不执行了。
If e.Table.Current
Is Nothing Then '如果Current为Nothing
Return
'则返回 End
If Dim wz As
Integer Dim dr As
DataRow dr = DataTables("客户").Find("[客户ID] = '" & e.Table.Current("客户ID") &
"'") If dr IsNot Nothing
Then wz = Tables("客户").FindRow(dr) If wz
>= 0
Then
Tables("客户").Position = wz End
If End
If