以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用窗体输入出错求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89776)
--  作者：Hyphen
--  发布时间：2016/8/30 8:43:00
--  
1、哪个窗口，怎么测试出错？

在仪器信息新增操作没有发现问题

2、把项目下bin、catch两个目录删除

3、
DataTables("仪器使用明细表").AllowEdit = True
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("已交数量")
End Select
If Tables("仪器使用主表").Current IsNot Nothing Then
    Tables("仪器使用主表").Current("总金额") = DataTables("仪器使用明细表").Compute("sum(金额)","借仪单号 = \'" & Tables("仪器使用主表").Current("借仪单号") & "\'")
End If