求助：跨表判断条件进行统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：跨表判断条件进行统计

共有3454人关注过本帖树形打印复制链接主题：求助：跨表判断条件进行统计

18310172639

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

加好友

发短信

等级：幼狐帖子：165 积分：1242 威望：0 精华：0 注册：2019/9/9 20:58:00

求助：跨表判断条件进行统计 发帖心情

Post By：2021/3/12 11:05:00 [只看该作者]

求助老师：我做了两张表：订单执行状态及订单执行进度

想根据订单执行进度表的预付款送审日期列不为空的情况下，统计订单执行状态表预付款状态列为：进行中

在订单执行进度表的datacolchenged表事件写入以下代码，没反应，请老师指教下，是哪里出了错误？

Select Case e.DataCol.Name
    Case "MIS号","预付款送审日期"
        If e.DataRow.IsNull("MIS号")=False AndAlso e.DataRow.IsNull("项目名称")=False
            If e.DataRow.IsNull("预付款送审日期")=False Then
                Dim s As String = Nothing
                s = "进行中"
                DataTables("订单执行状态").ReplaceFor("预付款状态", s ,"MIS号='" & e.DataRow("MIS号") & "'")
            End If
        End If
End Select

[此贴子已经被作者于2021/3/12 11:08:16编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/12 11:11:00 [只看该作者]

Select Case e.DataCol.Name
    Case "MIS号","预付款送审日期"
        If e.DataRow.IsNull("MIS号")=False AndAlso e.DataRow.IsNull("预付款送审日期")=False
                Dim s As String = "进行中"
                DataTables("订单执行状态").ReplaceFor("预付款状态", s ,"MIS号='" & e.DataRow("MIS号") & "'")
        End If
End Select

18310172639

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

加好友

发短信

等级：幼狐帖子：165 积分：1242 威望：0 精华：0 注册：2019/9/9 20:58:00

求助：这段代码之前也试过，不行 发帖心情

Post By：2021/3/12 11:24:00 [只看该作者]

老师：这段代码写入后，仍然是没有反应，什么原因呢？

有点蓝

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

加好友

发短信

等级：超级版主帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/12 11:36:00 [只看该作者]

选中case里其中一个列，重置列

18310172639

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

加好友

发短信

等级：幼狐帖子：165 积分：1242 威望：0 精华：0 注册：2019/9/9 20:58:00

重置列了，也写了项目事件的chenged代码，仍然没有反应 发帖心情

Post By：2021/3/12 12:42:00 [只看该作者]

在项目事件：maintablechenged写入如下代码，重置列也试过了，都没有反应，也没有错误提示

If MainTable.Name = "订单执行状态" Then
    DataTables("订单执行状态").DataCols("预付款状态").RaiseDataColChanged()
    DataTables("订单执行状态").DataCols("进度款状态").RaiseDataColChanged()
    DataTables("订单执行状态").DataCols("尾款状态").RaiseDataColChanged()
    DataTables("订单执行状态").DataCols("完工数量").RaiseDataColChanged()
End If