If e.DataRow("业务员") Then
Dim dr As DataRow
dr = DataTables("商品").Find("id = " & "'" & e.DataRow("productid") & "'" )
If dr IsNot Nothing '如果找到, 则设置各列内容
e.DataRow("商品名")= dr("cn_name")
Else
' e.DataRow("应取数量")= 系统录入值(这个地方该怎么写)
End If