主题：求赐教

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