主题：禁止删除指定条件的行

例子中门诊收入预算表中想禁止删除包含合计或总计的行，怎么实现不了呢？

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

点击浏览该文件:管理项目18.foxdb

If e.DataRow("收入明细") Like "*合计*" OrElse e.DataRow("收入明细") Like "*总计*" Then

控制指标预算表中计算比例，希望按百分比显示，为什么会提示如下信息：

.NET Framework 版本：2.0.50727.8689
Foxtable 版本：2017.12.31.1
错误所在事件：表，控制指标预算， DataColChanged
详细错误信息：
调用的目标发生了异常。
类型不匹配。

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

点击浏览该文件:管理项目18.foxdb

1、你可以把列改成【字符列】

 

2、如果用【数值列】，那你应该设置列格式为百分数即可 http://www.foxtable.com/webhelp/scr/1659.htm

 

列子中的指标格式不统一，有的需要是数字，有的需要是百分数。所以不能用第二种方法。

那就没办法，那就需要设置成【字符列】

按第一种方法修改后还是提示错误，如果把上年同期或本期金额删除后都会提示错误，该怎么解决？

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

点击浏览该文件:管理项目18.foxdb

• CDbl使用这个函数转换也不行

Dim filter As String =  " 年度 = '" & e.DataRow("年度") & "' And 期间 = '" & e.DataRow("期间") & "'And 公司名称 = '" & e.DataRow("公司名称") & "'And 部门编号 = '" & e.DataRow("部门编号") & "'"
Select Case e.DataCol.name
    Case "上年同期","本期金额"
        If val(e.DataRow("上年同期")) <> 0 Then
            e.DataRow("增减率") = Format((val(e.DataRow("本期金额")) - val(e.DataRow("上年同期"))) / val(e.DataRow("上年同期")),"0.00%")
        End If
    Case "年度","期间"
        Dim drzb01 As DataRow = e.DataTable.find(filter & " and 指标名称 = '总医疗费用(万元)'")
        If  drzb01 IsNot Nothing Then
            drzb01("本期金额") = DataTables("门诊收入预算").Compute("sum(金额)",filter & " And (收入明细 like '%合计%' )")
        End If
       
        Dim drzb02 As DataRow = e.DataTable.find(filter & " and 指标名称 = '检查占总收入比例'")
        If  drzb02 IsNot Nothing AndAlso DataTables("门诊收入预算").Compute("sum(金额)",filter & " And (收入明细 like '%合计%' )") <> 0   Then
            drzb02("本期金额") = Format(DataTables("门诊收入预算").Compute("sum(金额)",filter & " And 收入明细 like '%合计%' and 项目 = '检查收入'")/DataTables("门诊收入预算").Compute("sum(金额)",filter & " And (收入明细 like '%合计%' )"),"Percent")
        End If
End Select