- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于计算问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90805)
-- 发布时间：2016/9/22 8:52:00
-- [求助]关于计算问题
此主题相关图片如下：1.jpg
昨天第一个窗口问题已经解决，第二个窗口我用CheckedComboBox控件还是无法解决提取计算问题，请求帮助
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:需要解决问题3.rar |
此主题相关图片如下：2.jpg
[此贴子已经被作者于2016/9/22 8:52:15编辑过]
-- 发布时间：2016/9/22 9:13:00
--
保存按钮
With Tables("结算表")
If .Current IsNot Nothing Then
If .Current.Isnull("选取单位") = False
Dim filter = "简称 in (\'" & .Current("选取单位").replace("\\","\',\'") & "\') and 是否结算 = false"
.Current("小计单据1") = DataTables("凭证表").Compute("sum(单据1)",filter)
DataTables("凭证表").ReplaceFor("是否结算",True,filter)
End If
.Current.Save()
End If
End With
-- 发布时间：2016/9/22 9:38:00
--
收到。我可以把保存中计算的代码改到CheckedComboBox空间中SelectedIndexChanged或者TextChanged事件吧
-- 发布时间：2016/9/22 9:54:00
--
试试就知道了
-- 发布时间：2016/9/22 15:40:00
--
还是没弄明白，我想在选取单位之后自动将计算值显示在文本框中，点击保存按钮再进行保存及更改“是否结算”的状态
-- 发布时间：2016/9/22 15:56:00
--
请管管帮忙知道下
-- 发布时间：2016/9/22 15:56:00
--
贴出你的代码
-- 发布时间：2016/9/22 16:11:00
--
结算窗口_CheckedComboBox1_SelectedIndexChanged
Dim ccm As
WinForm.CheckedComboBox= e.Form.Controls("CheckedComboBox1")
Dim dr As DataRow
= ccm.SelectedItem
With Tables("结算表")
If dr IsNot Nothing Then
If .Current.Isnull("选取单位") =
False
Dim filter = "简称 in (\'"
& .Current("选取单位").replace("\\","\',\'") &
"\') and 是否结算 = false"
.Current("小计单据1") =
DataTables("凭证表").Compute("sum(单据1)",filter)
e.Form.Controls("TextBox1").Value = DataTables("凭证表").Compute("sum(单据1)")
End If
End If
End With
-- 发布时间：2016/9/22 16:28:00
--
我写的代码应该不对吧 请管管改正
-- 发布时间：2016/9/22 16:47:00
--
甜管，这个能帮我解决下嘛？辛苦了