主题：[求助]关于计算问题

此主题相关图片如下：1.jpg

昨天第一个窗口问题已经解决，第二个窗口我用CheckedComboBox控件还是无法解决提取计算问题，请求帮助

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:需要解决问题3.rar

此主题相关图片如下：2.jpg

收到。我可以把保存中计算的代码改到CheckedComboBox空间中SelectedIndexChanged或者TextChanged事件吧

还是没弄明白，我想在选取单位之后自动将计算值显示在文本框中，点击保存按钮再进行保存及更改“是否结算”的状态

请管管帮忙知道下

结算窗口_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

我写的代码应该不对吧  请管管改正

甜管，这个能帮我解决下嘛？辛苦了

狐爸看见又该挨说啦  ，可是我测试还是不行啊，还需要指点和学习啊！就是想选择完单位后直接把计算结果显示在文本框中，点保存后，在凭证表中添加已结算标记

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:3.rar

请蓝管帮忙解决

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