专家坐堂-这段代码有问题么？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这段代码有问题么？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33884)

--  作者：jinzhengbe
--  发布时间：2013/5/26 17:56:00
--  这段代码有问题么？

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

--  作者：y2287958
--  发布时间：2013/5/26 18:00:00
--

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

试试这样行不行?

--  作者：jinzhengbe
--  发布时间：2013/5/26 19:07:00
--  还是一样啊
没看出有什么区别啊！问题依旧，还望指点啊！！！！！！

--  作者：fjlclxj
--  发布时间：2013/5/26 19:10:00
--
ID 列是否为整型？

--  作者：jinzhengbe
--  发布时间：2013/5/26 19:37:00
--  是啊

--  作者：jinzhengbe
--  发布时间：2013/5/26 19:39:00
--  是啊
有上传文件。麻烦看一下啊！！

--  作者：fjlclxj
--  发布时间：2013/5/26 19:43:00
--

dr = DataTables("商品").Find("ID = " & e.DataRow("productID"))
de = DataTables("用户").Find("id = " & e.DataRow("客户id"))