主题：求赋值代码

select case e.datacol.name

       case "是否送检"

          if e.datarow.isnull("采购单号")=false andalso e.datarow.isnull("物料编码")=false  then

                dim dr as dataorw = datatables("下表").find("采购单号='" & e.datarow("采购单号") & "' and 物料编码='" & e.datarow("物料编码") & "'")

                 if dr isnot nothing then

                       dr("是否送检")=e.newValue

                 end if

           end if

end select