主题：关于显示问题

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

那如果我要在原基础上，再要求显示把已报过的“编号”“颜色”“单位”“单价”都显示出来，请问狐表爸爸，如下设置，谢谢

我根据你的意思，加了第二列了，可出现如图的，请帮我解释一下错在那里，谢谢

此主题相关图片如下：111.jpg

那如果要加显示第二列，应该怎么加代码，谢谢

谢谢

狐爸问题又来了，按我的意思应该显示已报过的编号的价格，好做参考，可现在不是，请看图
此主题相关图片如下：1111.jpg

提示表按要求应该显示：编号：A10.3

而不是：编号：A10.4

如果我想把“已经有此报价了”换行显示，请求代码

哈哈，也是边问边学习，请帮忙把这个问题处理，谢谢

提示表按要求应该显示：编号：A10.3

而不是：编号：A10.4

谢谢你啊，