主题：关于显示问题

MessageBox.Show( “编号:" & dr("编号") &  " 颜色:" & dr("颜色") & " 单价:" & dr("单价") &  " 已经有此报价了","提示")

 

你的Current("第一列") 后面多了个点，成了CurrentTable("第一列").

当然出错的, 计算即使机械的，多一个字符都不行的。

你在命令窗口执行下面的代码看看：
 
MessageBox.Show("如果你认真学习了,你会觉得" & vbcrlf & "Visual Basic一点不难!", "提示")
 
vbcrlf表示回车换行符号。
 
 

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( “编号:" & dr2("编号") &  " 颜色:" & dr2("颜色") & " 单价:" & dr2("单价") &  " 已经有此报价了","提示") 

        e.Cancel = True       
    Else
        If e.NewValue < dr("价格_厂价") * 1.3 Andalso dr("价格_允许") = False Then
            e.Cancel = True
        End If
    End If

End If

不客气，多看帮助，要理解每一段代码的逻辑关系，不要将就，你就能很快掌握。