- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 报错了，版主求救！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125953)
-- 发布时间：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编辑过]
-- 发布时间：2018/10/10 13:45:00
--
Dim prs As List(of DataRow) = DataTables("订单表").Select("客户编号 = \'" & e.DataRow("单位") "\'" And ("商品编号 = \'" & e.NewValue & "\'") ,"日期 desc")
这一行报错！我看不出来问题在哪里
-- 发布时间：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
-- 发布时间：2018/10/10 14:01:00
--
DataTables("订单表").Select("客户编号 = \'" & e.DataRow("客户编号") & "\' And 商品编号 = \'" & e.NewValue & "\'" ,"日期 desc")
-- 发布时间：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编辑过]
-- 发布时间：2018/10/10 14:12:00
--
DataTables("订单表").Select("客户编号 = \'" & e.DataRow("客户编号") & "\'And 商品编号 = \'" & e.NewValue & "\'") ,"日期 desc")
还是出错！
-- 发布时间：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
-- 发布时间：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
-- 发布时间：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编辑过]
-- 发布时间：2018/10/10 14:34:00
--
Dim prs As List(of DataRow) = DataTables("订单表").Select("客户编号 = \'" & e.DataRow("客户编号") & "\' And 商品编号 = \'" & e.NewValue & "\'" ,"日期 desc") |