主题：[求助]请问如下两个代码怎么合并

If e.NewValue Is Nothing Then

        e.DataRow("名称") = Nothing

        e.DataRow("材料") = Nothing

    Else

        Dim dr As DataRow

        dr = DataTables("图纸信息表").Find("产品图号 = '" & e.DataRow("产品图号") & "' and 名称 is not null")

        If dr IsNot Nothing

            e.DataRow("名称") = dr("名称")

            e.DataRow("材料") = dr("材料")

             '你想取什么,这里继续取

            e.datarow("列名")=dr("列名")

        End If

End If