主题：求助：按条件引用数据

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

点击浏览该文件:清洗.rar

请老师帮忙，详细的说明在文件里呢？

datacolchanged事件

 

Select Case e.DataCol.Name
    Case "客户名称","物品种类", "入厂时间"
        If e.DataRow.IsNull("客户名称") OrElse e.DataRow.IsNull("物品种类") Then
            e.DataRow("应收金额") = Nothing
        Else
            Dim dt1 As DataTable = DataTables("客户信息")
            Dim fdr1, fdr2 As DataRow
            If dt1.DataCols.Contains("物品种类_" & e.DataRow("物品种类")) Then
                fdr1 = dt1.Find("客户名称 = '" & e.DataRow("客户名称") & "'")
                If fdr1 IsNot Nothing Then
                    e.DataRow("应收金额") = fdr1("物品种类_" & e.DataRow("物品种类"))
                End If
            End If
            If e.DataRow.IsNull("入厂时间") = False Then
                dt1 = DataTables("价格时限")
                fdr2 = dt1.Find("物品种类 = '" & e.DataRow("物品种类") & "'")
                If fdr2 IsNot Nothing Then
                    e.DataRow("清洗时限") = fdr2("清洗时限_" & cdate(e.DataRow("入厂时间")).Month & "月")
                   
                    If fdr1 Is Nothing Then
                        e.DataRow("应收金额") = fdr2("清洗价格")
                    End If
                End If
            End If
           
        End If
End Select

多谢甜老师！真神啊！