Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口按钮执行公式的结果不能保存


  共有1852人关注过本帖树形打印复制链接

主题：窗口按钮执行公式的结果不能保存
帅哥哟，离线，有人找我吗？
大红袍
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/3 9:18:00 [显示全部帖子]

提示什么？贴出代码？

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/3 9:24:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/3 9:40:00 [显示全部帖子]

 你按钮执行公式，指什么？你写了什么代码，想做什么功能？

 

 不理解你说什么项目属性只读，你可以不允许人家打开项目属性啊
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/3 9:48:00 [显示全部帖子]

 已经修改保存的数据，除非你再次有代码修改其值，不然，是不可能改变数据的。

 

 上传实例说明。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/3 10:19:00 [显示全部帖子]

Select e.DataCol.name
    Case "目的港","装箱方式","价格条款","总体积","按体积平摊运费"
        Dim yf As DataRow = DataTables("运费价格").Find("港口名 = '" & e.DataRow("目的港") & "' and 装箱方式 = '" & e.DataRow("装箱方式") & "' and 价格条款 = '" & e.DataRow("价格条款") & "'")
        If yf IsNot Nothing AndAlso e.DataRow("按体积平摊运费") = True AndAlso e.DataRow("总体积") > 0 Then
           
            For Each a As DataRow In DataTables("报价明细").dataRows
                If a("QTY") IsNot Nothing Then
                    a("运费") = (a("总体积")/e.DataRow("总体积") *( e.DataRow("总体积") * yf("费用1") + yf("费用2")))/a("QTY")
                End If
            Next
        End If
        If e.DataRow("按体积平摊运费") = False AndAlso e.DataRow("总体积") > 0
            For Each a As DataRow In DataTables("报价明细").dataRows
                If a("QTY") <> Nothing Then
                    a("运费") = (a("总体积") * yf("费用1") + yf("费用2"))/a("QTY")
                End If
            Next
        End If
End Select

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 5 次数据查询