主题：这段代码有问题么？

Dim dr As DataRow 
    dr = DataTables("商品").Find("ID = " & "'" & e.DataRow("productID") & "'" )
   If dr IsNot Nothing '如果找到, 则设置各列内容
       e.DataRow("商品名称")= dr("cn_name")
        e.DataRow("价格")= dr("costPrice")
        e.DataRow("商城")=dr("length")
        e.DataRow("楼层")=dr("eng_name")
        e.DataRow("档口")=dr("width")
        e.DataRow("商品图片")=dr("pic")

End If
'e.DataRow("labl") = e.DataRow("商城") & ("-") & e.DataRow("楼层")
Dim de As DataRow 
    de = DataTables("用户").Find("id = " & "'" & e.DataRow("客户id") & "'" )
    If de IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("客户名")= de("name2")
  End If

试试这样行不行?