Foxtable(狐表) → 用户栏目 → 专家坐堂 → 报错了，版主求救！


  共有3221人关注过本帖树形打印复制链接

主题：报错了，版主求救！
帅哥哟，离线，有人找我吗？
hc-mall
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：119 积分：918 威望：0 精华：0 注册：2018/8/30 9:53:00 		报错了，版主求救！  发帖心情 Post By：2018/10/10 13:44:00 [只看该作者]

Select Case e.DataCol.Name '判断修改的列名
    Case "商品编号" '如果值是商品编号,则执行下面的语句
        Dim pr As DataRow = DataTables("商品规格表").find("商品编号 = '" & e.NewValue  & "'") '设置一个标量pr,其行号等于商品规格表内的商品编号等于新输入值得行
        Dim prs As List(of DataRow) = DataTables("订单表").Select("客户编号 = '" & e.DataRow("客户编号") "'" And ("商品编号 = '" & e.NewValue  & "'") ,"日期 desc")
        If prs IsNot Nothing Then
            prs(0)("单位") = e.DataRow("单位")
            prs(0)("单价") = e.DataRow("单价")
        Else
            If pr IsNot Nothing Then '如果找到了
                e.DataRow("数量") = 1
                e.DataRow("单位") = pr("单位")
                e.DataRow("单价") = pr("售价")
            Else
                e.DataRow("单位") = Nothing
                e.DataRow("数量") = Nothing
                e.DataRow("单价") = Nothing
                e.DataRow("折扣") = Nothing
            End If
        End If
End Select
[此贴子已经被作者于2018/10/10 13:47:39编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hc-mall
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：119 积分：918 威望：0 精华：0 注册：2018/8/30 9:53:00 		  发帖心情 Post By：2018/10/10 13:45:00 [只看该作者]

Dim prs As List(of DataRow) = DataTables("订单表").Select("客户编号 = '" & e.DataRow("单位") "'" And ("商品编号 = '" & e.NewValue  & "'") ,"日期 desc")
这一行报错！我看不出来问题在哪里
 回到顶部
帅哥哟，离线，有人找我吗？
hc-mall
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：119 积分：918 威望：0 精华：0 注册：2018/8/30 9:53:00 		  发帖心情 Post By：2018/10/10 13:47:00 [只看该作者]

Select Case e.DataCol.Name '判断修改的列名
    Case "商品编号" '如果值是商品编号,则执行下面的语句
        Dim pr As DataRow = DataTables("商品规格表").find("商品编号 = '" & e.NewValue  & "'") '设置一个标量pr,其行号等于商品规格表内的商品编号等于新输入值得行
        Dim prs As List(of DataRow) = DataTables("订单表").Select("客户编号 = '" & e.DataRow("客户编号") "'" And ("商品编号 = '" & e.NewValue  & "'") ,"日期 desc")
        If prs IsNot Nothing Then
            prs(0)("单位") = e.DataRow("单位")
            prs(0)("单价") = e.DataRow("单价")
        Else
            If pr IsNot Nothing Then '如果找到了
                e.DataRow("数量") = 1
                e.DataRow("单位") = pr("单位")
                e.DataRow("单价") = pr("售价")
            Else
                e.DataRow("单位") = Nothing
                e.DataRow("数量") = Nothing
                e.DataRow("单价") = Nothing
                e.DataRow("折扣") = Nothing
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4841 积分：35105 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2018/10/10 14:01:00 [只看该作者]

DataTables("订单表").Select("客户编号 = '" & e.DataRow("客户编号") & "' And 商品编号 = '" & e.NewValue  & "'" ,"日期 desc")

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/10/10 14:10:00 [只看该作者]

Dim prs As List(of DataRow) = DataTables("订单表").Select("客户编号 = '" & e.DataRow("客户编号") & "' And 商品编号 = '" & e.NewValue  & "'" ,"日期 desc")

[此贴子已经被作者于2018/10/10 14:33:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hc-mall
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：119 积分：918 威望：0 精华：0 注册：2018/8/30 9:53:00 		  发帖心情 Post By：2018/10/10 14:12:00 [只看该作者]

 DataTables("订单表").Select("客户编号 = '" & e.DataRow("客户编号") & "'And 商品编号 = '" & e.NewValue  & "'") ,"日期 desc")
还是出错！图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112378 积分：572152 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/10 14:24:00 [只看该作者]

提示什么错误？

Select Case e.DataCol.Name '判断修改的列名
    Case "商品编号" '如果值是商品编号,则执行下面的语句
        Dim pr As DataRow = DataTables("商品规格表").Find("商品编号 = '" & e.NewValue  & "'") '设置一个标量pr,其行号等于商品规格表内的商品编号等于新输入值得行
        Dim pr2 As DataRow DataTables("订单表").Find("客户编号 = '" & e.DataRow("客户编号") & "' And 商品编号 = '" & e.NewValue  & "'") ,"日期 desc")
        If pr2 IsNot Nothing Then
            pr2("单位") = e.DataRow("单位")
            pr2("单价") = e.DataRow("单价")
        End If
        If pr IsNot Nothing Then '如果找到了
            e.DataRow("数量") = 1
            e.DataRow("单位") = pr("单位")
            e.DataRow("单价") = pr("售价")
        Else
            e.DataRow("单位") = Nothing
            e.DataRow("数量") = Nothing
            e.DataRow("单价") = Nothing
            e.DataRow("折扣") = Nothing
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
hc-mall
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：119 积分：918 威望：0 精华：0 注册：2018/8/30 9:53:00 		  发帖心情 Post By：2018/10/10 14:25:00 [只看该作者]

Select Case e.DataCol.Name '判断修改的列名
    Case "商品编号" '如果值是商品编号,则执行下面的语句
        Dim pr As DataRow = DataTables("商品规格表").find("商品编号 = '" & e.NewValue  & "'") '设置一个标量pr,其行号等于商品规格表内的商品编号等于新输入值得行
        Dim prs As List(of DataRow) = DataTables("订单表").Select("客户编号 = '" & e.DataRow("客户编号") & "'And 商品编号 = '" & e.NewValue & "'") ,"日期 desc")
        If prs IsNot Nothing Then
            prs(0)("单位") = e.DataRow("单位")
            prs(0)("单价") = e.DataRow("单价")
        Else
            If pr IsNot Nothing Then '如果找到了
                e.DataRow("数量") = 1
                e.DataRow("单位") = pr("单位")
                e.DataRow("单价") = pr("售价")
            Else
                e.DataRow("单位") = Nothing
                e.DataRow("数量") = Nothing
                e.DataRow("单价") = Nothing
                e.DataRow("折扣") = Nothing
            End If
        End If
End Select

图片点击可在新窗口打开查看此主题相关图片如下：41ee19c8-6db2-428c-8d9f-d2539321f0b7.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/10/10 14:33:00 [只看该作者]

Dim prs As List(of DataRow) = DataTables("订单表").Select("客户编号 = '" & e.DataRow("客户编号") & "' And 商品编号 = '" & e.NewValue  & "'" ,"日期 desc")
[此贴子已经被作者于2018/10/10 14:33:09编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4841 积分：35105 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2018/10/10 14:34:00 [只看该作者]

Dim prs As List(of DataRow) = DataTables("订单表").Select("客户编号 = '" & e.DataRow("客户编号") & "' And 商品编号 = '" & e.NewValue  & "'" ,"日期 desc")
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07813 秒, 4 次数据查询