加上红色代码
If e.Table.Current Is Nothing Then Return
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("项目基础表").FindRow(dr)
If wz >=0 Then
Tables("项目基础表").Position = wz
End If
加好友 
发短信
Post By：2018/7/4 16:22:00 [显示全部帖子]
