主题：单价自动显示

 

 

如果你什么也没有输入，凭什么条件找到你要的单价呢？？？

以下是引用佛光普照在2011-3-19 20:58:00的发言：
如果这样写的可以，但出现需要输入一下才能执行，这如何解决？
 
正确的代码应该是下面的，记得需要判断列名：
 
Dim r As DataRow = e.DataRow
Dim dr1,dr2 As DataRow
Select Case e.DataCol.name
    Case "材料编码"
        dr1 = DataTables("基础材料").Find("材料编码 = '" & r("材料编码") & "'")
        dr2 = DataTables("入库单").Find("材料编码 = '" & r("材料编码") & "'")
        If dr1 IsNot Nothing AndAlso dr2 IsNot Nothing Then
            If dr2("日期") > dr1("日期")
                r("单价") = dr2("单价")
            Else
                r("单价") = dr1("单价")
            End If
        ElseIf dr1 IsNot Nothing Then
            r("单价") = dr1("单价")
        End If
End Select
 
你提到的需要输入一下才能执行的问题，建议看看：
 
http://help.foxtable.com/topics/1469.htm


至于为什么需要判断列名，请参考：
 
http://help.foxtable.com/topics/1522.htm