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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这段代码有问题么？

共有5369人关注过本帖树形打印复制链接主题：这段代码有问题么？

jinzhengbe

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00

这段代码有问题么？ 发帖心情

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2013/5/26 18:00:00 [只看该作者]

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

试试这样行不行?