体检项目多选，价格如何计算合计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 体检项目多选，价格如何计算合计

共有4805人关注过本帖树形打印复制链接主题：体检项目多选，价格如何计算合计

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/31 10:20:00 [显示全部帖子]

截图说明，或者具体实例发上来测试。

一般这样做：循环每一个项目，查询价格过来，累加。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/29 12:37:00 [显示全部帖子]

循环每一个值，然后再去查找，如

for each v as string in values

msgbox(v)

dr = datatables("检查项目销售价格").find("检测项目明细='" & v & "'")

msgbox(dr isnot nothing)

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/29 15:25:00 [显示全部帖子]

If e.DataCol.Name = "检查项目明细" Then
    Dim p As String = "销售价格"
    If e.NewValue Is Nothing Then
        e.DataRow(p) = Nothing
    Else
        Dim dr As DataRow
        Dim Multi As String = e.newvalue
        Dim Values() As String
        Values = Multi.split(",")
        Dim sum As Double = 0
        For Each s As String In values
            dr = DataTables("检查项目销售价格").Find("[检查项目明细] = '" & s & "'")
            If dr IsNot Nothing
                sum += dr(p)
            End If
        Next
        e.DataRow(p) = sum
    End If
End If

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/23 11:30:00 [显示全部帖子]

1、你重置列重新计算了没有？

2、做一个出错的例子发上来测试。

下一主题 >> << 上一主题

主题：体检项目多选，价格如何计算合计