主题：请帮忙写代码

此主题相关图片如下：捕获.jpg

在“收入”表中“收费项目”是从“收费标准”中“业务项目”中提取的动态列表。当在收入表的收费项目选取不同的项目时，希望用“收入”表中的“标的额”乘以“收费标准”表中对应的标准。
该标准要自动判断。（“收费标准”表中意思见EXCEL表。）比如当选取“非刑事涉案物品（包括房地产、有形资产、无形资产）价格鉴证”时，如果“标的额”为20000元时，就用20000*0.015,结果填入到“参考收费额”中。

 

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

点击浏览该文件:认证中心信息管理.table

EXCEL如何上传？

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

点击浏览该文件:收费标准.rar

压缩后

上面的代码没有人愿意帮我一下吗？
另外，请狐爸帮我看看，为什么“增加”按钮一点程序马上出错自动关闭。

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

点击浏览该文件:认证中心信息管理.table

狐表论坛上怎么没有人愿意指点我一下呢?这和易表论坛上人气和风格可差远了

你的问题比较难,还没有人能回答吧,我们版主也在学习中,呵呵

这个问题已经在另一贴中回过了呀。

将这段加个判断，如：


        if sum <0 Then
            If dr("联系人")=nothing And dr("朱涛") = true And Math.abs(sum) = 3 Then
                dr("人均案件数") = 1/(Math.abs(sum)-1)
                dr("案数朱") = nothing
            Elseif dr("联系人")=nothing And dr("朱涛") = true And Math.abs(sum) <> 3 Then
                dr("人均案件数") = 1/Math.abs(sum)
                dr("案数朱") = dr("人均案件数")
            Elseif dr("联系人") =nothing And dr("朱涛")= False Then
                dr("人均案件数") = 1/Math.abs(sum)
                dr("案数朱") = nothing
            elseIF dr("联系人") IsNot nothing  Then
                dr("人均案件数") = nothing
                dr("案数朱") = nothing
            Else
                dr("人均案件数") = 1/Math.abs(sum)
            End If
        End If

法定的劳动节放假休息三天啦!.............楼主要发3倍工资吗?...............呵呵