主题：求赐教

表A列	产品	单价1	单价2
	茶	10	20
	茶	20	15
	茶	15	30
求：以产品变化为判断条件，当录入的产品相同时，则将最后一次录入的《单价2》的值自动赋给当前录入行的《单价1》

有高手吗？请高手指导

难度大了，不难我也不来了

发文件，这个不难吧？

DataColChanged事件代码：

If e.DataCol.name = "产品"

    If e.DataRow("产品") > ""

        Dim drs As List(Of DataRow) = DataTables("表A").Select("[产品] = '" & e.DataRow("产品") & "' and [单价2] > 0")

        If drs.Count > 0

            e.DataRow("单价1") = drs(drs.Count - 1)("单价2")

        End If

    End If

End If

If e.DataCol.name = "产品"

    If e.DataRow("产品") > ""

        Dim fdr As DataRow = DataTables("表A").find("[产品] = '" & e.DataRow("产品") & "' and [单价2] > 0", "_Identify desc")

        If fdr IsNot Nothing Then

            e.DataRow("单价1") = fdr("单价2")

        End If

    End If

End If

色版，不要排序，否则，当该表使用过程中删除了行再增加行的时候，会导致顺序颠倒，因为新增行_Identify列会自动补号，后面的_Identify的值总会出现比前面的小，这样排序会导致单价2顺序颠倒，不是按输入顺序，会导致取值错误。可以在find条件后面跟上-1参数即可！

不行

啥不行？附件吗？您没有点上传附件，代码来了，不要附件了！