Dim dr As DataRow = e.Table.Current.DataRowDim wz As Integer = Tables("表A").FindRow(dr)If wz >=0 Then Tables("表A").Position = wzEnd If
表A无数据行的时候报错