以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  新增入库数量时，显示上次输入最后的一行的入库单价  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83611)
--  作者：zhangxl1964
--  发布时间：2016/4/13 10:40:00
--  新增入库数量时，显示上次输入最后的一行的入库单价
老师：你好！
要求：新增入库数量时，显示本次输入日期前最后的一行的入库单价，烦请如何修改？
--  作者：Hyphen
--  发布时间：2016/4/13 11:24:00
--  
类似

DataColChanged事件


If e.DataCol.Name = "入库数量" Then
    Dim dr As DataRow = DataTables("表A").Find("[_Identify] <> " & e.DataRow("_Identify"),"入库日期 desc")
    If dr IsNot Nothing Then
        e.DataRow("入库单价") = dr("入库单价")
    End If
End If