主题：录入数据闪退

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