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 Then
Dim s As String = "此订单存在销售信息, 是否确定要删除此订单及其销售信息?"
If MessageBox.Show(s,"提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.No
e.Cancel= True
End If
Else
' Tables("订单管理").Current.Delete
End If
If r1 IsNot Nothing Then
Dim s1 As String = "此订单存在市场部信息, 是否确定要删除此订单及其市场部信息?"
If MessageBox.Show(s1,"提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.No
e.Cancel= True
e.Form.CancelButton = "Button5"
End If
End If
Else
e.Cancel= True
End If
哪里错了？？
加好友 
发短信
Post By：2016/9/28 17:05:00 [显示全部帖子]
