主题：[求助]公式设置

czy你那个表

YS001    红色    个     0.01元/个

YS001    红色    个     0.02元/个

还是可以输入两个价格了，还是不行啊

对不起czy你那个表刚好相反了，有可能我没表达清楚

我说是：“YS001    红色    个”   这三个相同的情况只能是一种价格，不能有两种价格或三种以上的价格

如果“YS001    红色    个  0.01元/个”就不能再出现0.02元/个或0.03元/个

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目7.table

老兄又错了，

编号       颜色     单位    单价

YS001    红色    个     0.01元/个     只能是这种价格，其他价格就不能如果输入就提示，已有价格了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目7.table

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

狐狸爸爸为什么在你写的那个表上填上其他编号的产品的时侯老出图上的问题，还有低于厂价的30%不用打钩还是能填价格进去，
此主题相关图片如下：33.jpg

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("表A").Find(Str)
    If dr2 IsNot Nothing Andalso dr("_Identify") <> dr2("_Identify") Then
        MessageBox.Show("已经有此报价了","提示")
        e.Cancel = True       
    Else
        If e.NewValue < dr("厂价") * 0.7 Andalso dr("允许") = False Then
            e.Cancel = True
        End If
    End If
End If

谢谢你

请问如果我在“编号”那列填入内容，“下单日期”列会自动出现当天日期

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

表的DatacolChanged事件：

 

If e.Datacol.Name = "编号" Andalso e.Datarow.IsNull("下单日期") Then
    e.Datarow("下单日期") = Date.Today
End If

 

这些事基本的问题，可以先看看帮助再动手，这样学起来更快。