Dim nm() As String = {"采购进货","销售明细","入库明细"}
Dim nm1() As String = {"采购订单","销售订单","采购入库"}
For i As Integer = 0 To nm.Length-1
Dim drs As List (of DataRow) = DataTables(nm(i)).Select(" 定额编码 = '" & e.DataRow("定额编码") & "' ")
If drs.Count > 0 Then
Dim result As DialogResult = MessageBox.Show("此材料已被:'"& nm(i) &"' 录入,是否删除对应采购进货明细后再删除本条材料?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If result = dialogresult.no Then
e.Cancel = True
Else
e.Cancel = True
Forms(nm1(i)).show
'Dim filter As String = "1=2"
'For Each dr As DataRow In drs
'filter &= " or 进货批次 = '" & dr("进货批次") & "'"
'Next
'Tables(nm1(i)).Filter = filter
End If
ElseIf drs.Count = 0 Then
If MessageBox.Show("是否删除本条机具?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.yes Then
Else
e.Cancel = True
End If
End If
Next
问题是：
1、即使被引用，也要先弹两个：是否删除本条机具？的提示窗口。
2、被引用，Forms(nm1(i)).show不弹出。（并列窗口。主窗口类型）
加好友 
发短信
Post By：2016/3/22 16:15:00 [只看该作者]
