主题：求赐教

发文件，这个不难吧？

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

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

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