主题：[求助]如何实现这样的自动输入？

If e.DataCol.Name = "产品编号" Then

    Dim fdr As DataRow = DataTables("材料费预算表").Find("中标工程名称 = '" & e.DataRow("中标工程名称") & "' and 产品编号 = '" & e.NewValue & "'")

    If fdr IsNot Nothing Then

        e.DataRow("成本预算数量") = fdr("数量")

        e.DataRow("成本预算单价") = fdr("单价")

    Else

        fdr = DataTables("产品价格库").Find("产品编号 = '" & e.NewValue & "'")

        e.DataRow("成本预算数量") = 0

        If fdr IsNot Nothing Then

            e.DataRow("成本预算单价") = fdr("单价")

        End If

    End If

End If