Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于计算问题


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

主题：[求助]关于计算问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107718 积分：547917 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/22 16:50:00 [只看该作者]

Dim ccm As WinForm.CheckedComboBox= e.Form.Controls("CheckedComboBox1")
With Tables("结算表")
    Dim filter = "简称 in ('" & ccm.Text.replace("\","','") & "') and 是否结算 = false"
    .Current("小计单据1") = DataTables("凭证表").Compute("sum(单据1)",filter)
    e.Form.Controls("TextBox1").Value = .Current("小计单据1")
End With
 回到顶部
帅哥哟，离线，有人找我吗？
hero_xinyu
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：112 积分：908 威望：0 精华：0 注册：2011/10/4 20:00:00 		  发帖心情 Post By：2016/9/23 10:27:00 [只看该作者]

狐爸看见又该挨说啦  图片点击可在新窗口打开查看图片点击可在新窗口打开查看，可是我测试还是不行啊，还需要指点和学习啊！就是想选择完单位后直接把计算结果显示在文本框中，点保存后，在凭证表中添加已结算标记
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:3.rar
 回到顶部
帅哥哟，离线，有人找我吗？
hero_xinyu
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：112 积分：908 威望：0 精华：0 注册：2011/10/4 20:00:00 		  发帖心情 Post By：2016/9/23 11:08:00 [只看该作者]

请蓝管帮忙解决

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


加好友 发短信
等级：超级版主 帖子：107718 积分：547917 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/23 11:21:00 [只看该作者]

1、选取单位输入框绑定到 "结算表.选取单位"

2、TextChanged改为

e.Sender.WriteValue
With Tables("结算表")
    Dim filter = "简称 in ('" & e.Sender.Text.replace("\","','") & "') and 是否结算 = false"
    .Current("小计单据1") = DataTables("凭证表").Compute("sum(单据1)",filter)
    .Current("小计单据2") = DataTables("凭证表").Compute("sum(单据2)",filter)
    .Current("小计金额1") = DataTables("凭证表").Compute("sum(金额1)",filter)
    .Current("小计金额2") = DataTables("凭证表").Compute("sum(金额2)",filter)
    e.Form.Controls("TextBox1").Value = .Current("小计单据1")
    e.Form.Controls("TextBox2").Value = .Current("小计金额1")
    e.Form.Controls("TextBox3").Value = .Current("小计单据2")
    e.Form.Controls("TextBox4").Value = .Current("小计金额2")
End With
 回到顶部
帅哥哟，离线，有人找我吗？
hero_xinyu
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：112 积分：908 威望：0 精华：0 注册：2011/10/4 20:00:00 		  发帖心情 Post By：2016/9/27 8:03:00 [只看该作者]

前几天出差了没有网，今天回来了，谢谢蓝管帮我解决了

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