Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "单价" Andalso e.NewValue > 0 Then
Dim str As String
str = "[编号] = '" & dr("编号") & "' And [颜色] = '" & dr("颜色") & "' And [单位] = '" & dr("单位") & "' And [单价] Is Not Null"
Dim dr2 As DataRow = DataTables("报价").Find(Str)
If dr2 IsNot Nothing Andalso dr("_Identify") <> dr2("_Identify") Then
MessageBox.Show("已经有此报价了","提示")
e.Cancel = True
Else
If e.NewValue < dr("价格_厂价") * 1.3 Andalso dr("价格_允许") = False Then
e.Cancel = True
End If
End If
此代码只能出现如下图形的提示,
End If
此主题相关图片如下:11.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2010-9/20109613183535781.jpg)
那如果我要在原基础上,再要求显示把已报过的“编号”“颜色”“单位”“单价”都显示出来,请问狐表爸爸,如下设置,谢谢