Dim Result As DialogResult
Dim r As Row=Tables("订单管理.销售表").Current
Dim r1 As Row=Tables("订单管理.市场部").Current
Result = MessageBox.Show("是否删除选中行", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
If r IsNot Nothing OrElse r1 IsNot Nothing Then
Dim s As String = "此订单存在销售信息或市场部信息, 是否确定要删除此订单及其销售信息和市场部信息?"
If MessageBox.Show(s,"提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes
Tables("订单管理").Current.Delete
End If
else
Tables("订单管理").Current.Delete
End If
End If
加好友 
发短信
Post By：2016/9/28 17:17:00 [显示全部帖子]
