For n As Integer = 2 To Rg.Rows.count
Dim sfzhm As String = ary(n,nms("案号"))
Dim beigao As String = ary(n,nms("被告"))
If sfzhm = "" OrElse beigao = "" Then Continue For
Dim dr As DataRow = dt.Find("案号 = '" & sfzhm & "' and 被告 = '" & beigao & "'")
If dr IsNot Nothing Then
Result = MessageBox.Show("有重复案号,是否覆盖导入?"& vbcrlf &"是---覆盖导入(将更新原有案号数据)"& vbcrlf &"否---新增导入(仅增加新案号数据)", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
flag = True
Else
flag = False
End If
Exit For
End If
Next
加好友 
发短信
Post By：2018/10/13 16:55:00 [只看该作者]
