怎样将以下语句：Select Case e.DataCol.name
Case "型号","规格"
Dim xh As String
Dim gg As String
If e.DataCol.Name= "型号" Then
xh = e.NewValue
gg = e.DataRow("规格")
Else
gg = e.NewValue
xh = e.DataRow("型号")
End If
If xh > "" AndAlso gg > "" Then
Dim dr As DataRow = e.DataRow
If e.DataTable.Find("型号 = '" & xh & "' And 规格 = '" & gg & "'") IsNot Nothing Then
MessageBox.Show("已经存在相同型号和规格的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
End If
End If
End Select
与保存按钮的语句结合一起DataTables("表Ａ").Save()
是不是这样就可以在保存前有重复值的可以提示
[此贴子已经被作者于2015/10/31 15:44:56编辑过]
加好友 
发短信
Post By：2015/10/31 15:04:00 [只看该作者]
