主题：录入数据闪退

老师您好，在发布后的表中输入数据（采购单价、销售单价）出现闪退，采购单价和销售单价由产品表带出，开发版没有出现。修改数量后下面采购金额和销售金额不变化？需要怎么修改？谢谢！ Dim dr1 As DataRow = e.DataRow Select Case e.DataCol.Name Case "采购单价","数量","药品订单","加成","定价","折扣","销售单价","销售金额" dr1("采购金额") = dr1("采购单价")*dr1("数量") dr1("定价") = dr1("采购单价")*(1+dr1("加成")) dr1("销售金额") = dr1("销售单价")*dr1("数量")*(1-dr1("折扣")) End Select

修改数量、采购单价、销售价格（三列的列属性均可以编辑），均出现闪退。谢谢！

Case "采购单价","数量","加成","折扣","销售单价"

老师您好，case修改后还是出现修改数量、销售单价、采购价格数据出现闪退。谢谢！

事件的完整代码发上来，或者上传实例说明

不知贴子怎么排版，完整事件代码见附件，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文本文档.txt

老师您好，我把下面代码删掉后好像就可以了，这段代码应该怎么调整呢？谢谢！ Select Case e.DataCol.Name Case "采购金额","销售金额","已支付金额","已收款金额" Dim pr As DataRow pr = DataTables("药品订单").Find("药品订单编号 = '" & e.DataRow("药品订单编号") & "'") If pr IsNot Nothing Then DataTables("药品费结算").DataCols("药品订单编号").RaiseDataColChanged(pr) End If End Select

1、你这段逻辑是什么？，改成这样？

 

Select Case e.DataCol.Name
    Case "采购金额","销售金额","已支付金额","已收款金额"
        Dim pr As DataRow
        pr = DataTables("药品订单").Find("药品订单编号 = '" & e.DataRow("药品订单编号") & "'")
        If pr IsNot Nothing Then
            DataTables("药品费结算").DataCols("药品订单编号").RaiseDataColChanged("药品订单编号 = '" & e.DataRow("药品订单编号") & "'")
        End If
End Select

 

2、去你表格【药品费结算】里面datacolchanged事件查看错误

 

http://www.foxtable.com/webhelp/scr/1522.htm

 

老师您好，按照您的修改后就可以了。【药品费结算】里面datacolchanged的事件检查了没有问题。这段代码的目的是【药品订单】表里的采购价格、销售价格或数量有变化，【药品费结算】表里的数据需要同步变化，不知有没有更好的办法？谢谢！

 

重置列，是最好的方法了。