[求助]求助计算设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求助计算设置

共有2983人关注过本帖树形打印复制链接主题：[求助]求助计算设置

有点甜

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

加好友

发短信

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

Post By：2017/11/1 9:22:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试 (2).foxdb

有点甜

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

加好友

发短信

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

Post By：2017/11/1 21:49:00 [显示全部帖子]

Select Case e.DataCol.name
    Case "数量", "K数", "扣底", "不扣底"
        Dim kd As String = iif(e.DataRow("扣底") = True, "扣底", iif(e.DataRow("不扣底") = True, "不扣底", ""))
        If kd = "" Then
            e.DataRow("粘盒费") = Nothing
        Else
            Dim fdr As DataRow = DataTables("粘盒").find("盒子大小K <= " & e.DataRow("K数") & " and 粘盒类型 = '" & kd & "'", "盒子大小K desc")
            If fdr IsNot Nothing Then
                msgbox(fdr("盒子大小K"))
                e.DataRow("粘盒费") = IIF(e.DataRow("数量")>fdr("起订个数"),fdr("开机费") + (e.DataRow("数量") - fdr("起订个数")) * fdr("单价"), fdr("开机费"))
            End If
        End If
End Select

有点甜

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

加好友

发短信

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

Post By：2017/11/1 23:18:00 [显示全部帖子]

修改代码

Dim fdr1 As DataRow = DataTables("粘片基").find("盒子大小K <= '" & e.DataRow("K数") & zpj & "'", "盒子大小K desc")

有点甜

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

加好友

发短信

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

Post By：2017/11/2 9:11:00 [显示全部帖子]

回复11楼，执行代码包什么错？

把你的项目发上来测试。

有点甜

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

加好友

发短信

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

Post By：2017/11/2 11:27:00 [显示全部帖子]

Select Case e.DataCol.name
    Case "数量", "K数", "凹凸", "凹凸新版费"
        If e.DataRow("凹凸") = False Then
            e.DataRow("凹凸费") = Nothing
        Else
            Dim at As String = iif(e.DataRow("数量")<2000, "手动机", "自动机")
            Dim fdr2 As DataRow = DataTables("凹凸").find("盒子大小K <= " & e.DataRow("K数") & " and 类型 = '" & at & "'", "盒子大小K desc")
            If fdr2 IsNot Nothing Then
                e.DataRow("凹凸费") = IIF(e.DataRow("凹凸新版费")>0,fdr2("装版费") + e.DataRow("数量")* fdr2("单价")+e.DataRow("凹凸新版费")*fdr2("系数"), fdr2("装版费") + e.DataRow("数量")* fdr2("单价")+fdr2("旧版费"))
            End If
        End If
End Select

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

主题：[求助]求助计算设置