Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]变更内容后，自动变更颜色！


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

主题：[求助]变更内容后，自动变更颜色！
美女呀，离线，留言给我吧！
rophy0952
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/10/8 22:48:00 [只看该作者]

以下是引用rophy0952在2014-10-8 22:40:00的发言：
或者能不能以其它的号进行记录呢？后面有很多表，都与客户订单号有关，我担心改了这里之后，后面要改的东西太多了
后来补充问题，不好意思。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用rophy0952在2014-10-8 22:40:00的发言：
或者能不能以其它的号进行记录呢？后面有很多表，都与客户订单号有关，我担心改了这里之后，后面要改的东西太多了

 

只要记录一个唯一的记号即可，你可以组合成一个唯一的字符串，比如 订单号|规格 组成
 回到顶部
美女呀，离线，留言给我吧！
rophy0952
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/10/8 22:55:00 [只看该作者]

好的，我试一下，辛苦你啦！图片点击可在新窗口打开查看

 回到顶部
美女呀，离线，留言给我吧！
rophy0952
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/10/9 11:13:00 [只看该作者]

有点甜：
      你好，我加载的是后台数据，然后根据情况，将代码作了如下的修改，在执行时，总是报错，帮忙看看是什么原因呗？

Dim dr1 As DataRow = DataTables("订单明细表").SQLFind("客户代号 = '" & Forms("订单变更").controls("客户代号").text & "' and 客户订单号 = '" & Forms("订单变更").controls("客户订单号").text & "' and 作废 = false")
dr1("作废") = True
dr1.save

Dim dd As String = dr1("客户订单号")
Dim ss As String = dr1("物料代码")
Dim r As Row = Tables("订单明细表").addnew
Tables("订单明细表").AllowEdit = True
r("标记") = dd & ss
r("变更人") = _UserName
r("变更日期") = Date.Today
r("订货日期") = Forms("订单变更").Controls("订货日期").value
r("客户订单号") = Forms("订单变更").Controls("客户订单号").value
r("客户代号") = Forms("订单变更").Controls("客户代号").value
r("物料类型") = Forms("订单变更").Controls("物料类型").value
r("物料代码") = Forms("订单变更").Controls("物料代码").value
r("型号") = Forms("订单变更").Controls("型号").value
r("规格") = Forms("订单变更").Controls("规格").value
r("物料等级") = Forms("订单变更").Controls("物料等级").value
r("厂商代号") = Forms("订单变更").Controls("厂商代号").value
r("交货日期") = Forms("订单变更").Controls("交货日期").value
r("订货重量") = Forms("订单变更").Controls("订货重量").value
r("基材来源") = Forms("订单变更").Controls("基材来源").value
r("基材类型") = Forms("订单变更").Controls("基材类型").value
r("基材代码") = Forms("订单变更").Controls("基材代码").value
r("基材型号") = Forms("订单变更").Controls("基材型号").value
r("基材规格") = Forms("订单变更").Controls("基材规格").value
r("基材等级") = Forms("订单变更").Controls("基材等级").value
r("已下生产重量") = Forms("订单变更").Controls("已下生产重量").value
r("已交重量") = Forms("订单变更").Controls("已交重量").value
r("备注") = Forms("订单变更").Controls("备注").value
r("是否计价") = Forms("订单变更").Controls("是否计价").checked
r("是否生产") = Forms("订单变更").Controls("是否生产").checked
r("变更") = True
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 报什么错？

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


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

 我写给你的代码根本不会这样的啊。

 回到顶部
美女呀，离线，留言给我吧！
rophy0952
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/10/9 11:24:00 [只看该作者]

调用的目标发生异常

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


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

这段先删除，然后，肯定是没有查找到对应的数据啊

 

Dim dr1 As DataRow = DataTables("订单明细表").SQLFind("客户代号 = '" & Forms("订单变更").controls("客户代号").text & "' and 客户订单号 = '" & Forms("订单变更").controls("客户订单号").text & "' and 作废 = false")
dr1("作废") = True
dr1.save
[此贴子已经被作者于2014-10-9 11:29:21编辑过]
 回到顶部
美女呀，离线，留言给我吧！
rophy0952
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/10/9 11:30:00 [只看该作者]

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.9.22.1
错误所在事件：表，订单明细表，DataColChanged
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。


但我订单明细表的datacolchanged的写的代码，好像也没什么呀？
'-----------------------------自动生成单价---------------------'
Select Case e.DataCol.Name
    Case "客户代号","物料代码","基材来源","物料类型","厂商代号","物料等级","型号","规格","是否计价"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("客户代号") OrElse dr.IsNull("物料代码") OrElse dr.IsNull("基材来源")OrElse dr.Isnull("物料类型")OrElse dr.Isnull("厂商代号")OrElse dr.Isnull("物料等级")OrElse dr.Isnull("型号")OrElse dr.Isnull("规格") OrElse dr("是否计价") = False Then
            dr("单价") = 0
        Else
            Dim filter As String
            filter = "客户代号 = '" & dr("客户代号") & "' And 物料代码 = '" & dr("物料代码") & "' And 基材来源 = '" & dr("基材来源") & "'And 物料类型 = '" & dr("物料类型") & "'And 厂商代号 = '" & dr("厂商代号") & "'And 物料等级 = '" & dr("物料等级") & "'And 型号 = '" & dr("型号") & "'And 规格 = '" & dr("规格") & "'"
            pr = DataTables("销售价格表").SQLFind(filter)
            If pr IsNot Nothing Then
                dr("单价") = pr("单价")
            Else
                MessageBox.show("无此产品单价,请先录入单价!","提示")
            End If
        End If
End Select

Select Case  e.DataCol.Name
    Case  "订货重量" ,"单价","已交重量","已下生产重量"
        If e.DataRow.Isnull("订货重量") Then
            e.DataRow("金额") = Nothing
        Else
            e.DataRow("金额")  = e.DataRow("单价")  * e.DataRow("订货重量")
        End If
        e.DataRow("未交重量") = e.DataRow("订货重量") - e.DataRow("已交重量")
        e.DataRow("未投产重量") = e.DataRow("订货重量") - e.DataRow("已下生产重量")
End Select

Tables("订单主表").Current("总金额") = DataTables("订单明细表").SQLCompute("sum(金额)","客户订单号 = '" & Tables("订单主表").Current("客户订单号") & "'and 作废 = false")
 回到顶部
美女呀，离线，留言给我吧！
rophy0952
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/10/9 11:32:00 [只看该作者]

连续提示出错，但将错误提示全部关掉时，又可以正常赋值

 回到顶部
总数 24 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询