With Tables("产品基础信息表")
Dim CPBH As winform.textbox=e.Form.controls("CPBH")
Dim result As dialogresult
Dim nms() As String = {"产品编号","产品名称","模具号"}'不允许为空的列名
Dim r As Row = Tables("产品基础信息表").Current
For Each nm As String In nms
If r.isnull(nm) Then
messagebox.show(nm & "不能为空")
Return
End If
Next
End If
Dim p As Integer
p = .Findrow("[产品名称] = '" & cpbh.value & " '")
If p>=0 Then
result=messagebox.show("产品编号重复,是否修改?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If result=DialogResult.Yes Then
.current("产品编号")=Nothing
Else
messagebox.show("该记录将被删除!")
.current.delete
'Return
End If
'end if
' r.Save()
'MessageBox.Show("产品信息保存成功!")
'Tables("产品基础信息表").AddNew()
End If
End With
因为我在输入的时候，数据已经保存到表里了，所以肯定会提示重复的，是与当前要保存的列重复的，这个问题怎么破？我想提示产品编号不能重复，其中CPBH就是产品编号，另一个问题解决了，求专家解答
加好友 
发短信
Post By：2014/6/26 15:35:00 [显示全部帖子]
