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

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")
    Else
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")
         Else
  End If

 

这段代码 是哪里有问题？ 为什么老是显示

此主题相关图片如下：??.png

没看出有什么区别啊！ 问题依旧，还望指点啊！！！！！！

 

有上传文件。麻烦看一下啊！！