关于组合框列表项目的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有另外一个复选控件我在Checkedchanged里添加如下代码，这样选中就可以展开GroupBox1的控件，如何去掉选中后再次隐藏呢？

e.Form.Controls("GroupBox1").Visible = True

e.Form.Controls("GroupBox1").Visible = e.Sender.Checked

老师有个问题，如下图，红框里的应收金额是随着蓝色框起来的标签或者文本框里的数值动态合成的，应该用全局事件的ValueChanged是吧，现在的问题是

1 标签可不可以用这个属性

2 这个事件具体应该怎么判断和实现呢，因为没有例子。

此主题相关图片如下：捕获.png

你的例子发上来

想实现的要求

1 按保存按钮后，减免的数值保存在减免表中，下方的各项数值保存在实收表中。

2 应收金额根据复选框选定的数值+欠费金额动态合成。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目11489.table

[此贴子已经被作者于2014-9-5 19:28:42编辑过]

1、保存按钮代码

Dim nd As String = e.Form.Controls("ComboBox1").Text
Dim bh As String = Tables("客户信息").Current("客户编号")
If e.Form.Controls("CheckBox1").checked Then
    Dim filter As String = "年度 = '" & nd & "' and 客户编号 = '" & bh & "' and 减免类型 = '" & e.Form.Controls("CheckBox2").Text& & "'"
    If e.Form.Controls("CheckBox2").checked Then
        Dim ndr As DataRow = DataTables("减免").Find(filter)
        If ndr Is Nothing Then ndr = DataTables("减免").AddNew
        ndr("年度") = nd
        ndr("客户编号") = bh
        ndr("减免类型") = e.Form.Controls("CheckBox2").Text
        ndr("减免金额") = e.Form.Controls("TextBox1").Text
    Else
        DataTables("减免").DeleteFor(filter)
    End If

    filter = "年度 = '" & nd & "' and 客户编号 = '" & bh & "' and 减免类型 = '" & e.Form.Controls("CheckBox3").Text& & "'"
    If e.Form.Controls("CheckBox3").checked Then
        Dim ndr As DataRow = DataTables("减免").Find(filter)
        If ndr Is Nothing Then ndr = DataTables("减免").AddNew

        ndr("年度") = nd
        ndr("客户编号") = bh
        ndr("减免类型") = e.Form.Controls("CheckBox3").Text
        ndr("减免金额") = e.Form.Controls("TextBox2").Text
    Else
        DataTables("减免").DeleteFor(filter)
    End If

    filter = "年度 = '" & nd & "' and 客户编号 = '" & bh & "' and 减免类型 = '" & e.Form.Controls("CheckBox4").Text& & "'"
    If e.Form.Controls("CheckBox4").checked Then
        Dim ndr As DataRow = DataTables("减免").Find(filter)
        If ndr Is Nothing Then ndr = DataTables("减免").AddNew

        ndr("年度") = nd
        ndr("客户编号") = bh
        ndr("减免类型") = e.Form.Controls("CheckBox4").Text
        ndr("减免金额") = e.Form.Controls("TextBox3").Text
    Else
        DataTables("减免").DeleteFor(filter)
    End If
Else
    DataTables("减免").DeleteFor("年度 = '" & nd & "' and 客户编号 = '" & bh & "'")
End If

Dim fdr As DataRow = DataTables("年度实收").Find("供热年度 = '" & nd & "' and 客户编号 = '" & bh & "'")
If fdr Is Nothing Then fdr = DataTables("年度实收").AddNew
fdr("供热年度") = nd
fdr("客户编号") = bh
fdr("缴费金额") = e.Form.Controls("TextBox4").Text
fdr("凭证号") = e.Form.Controls("TextBox5").Text
fdr("缴费形式") = e.Form.Controls("TextBox7").Text
fdr("缴费类型") = e.Form.Controls("TextBox8").Text

2、应收按钮

Dim cm As WinForm.ComboBox = forms("窗口1").Controls("ComboBox1")
Dim znj As Double = DataTables("年度应收").Compute("sum(滞纳金)", "供热年度 = '" & cm.Text & "' and 客户编号 = '" & Tables("客户信息").Current("客户编号") & "'")
Dim qf As Double = DataTables("年度应收").Compute("sum(欠费金额)", "供热年度 = '" & cm.Text & "' and 客户编号 = '" & Tables("客户信息").Current("客户编号") & "'")
Dim jm As Double = DataTables("减免").Compute("sum(减免金额)", "年度 = '" & cm.Text & "' and 客户编号 = '" & Tables("客户信息").Current("客户编号") & "'")

Forms("窗口1").Controls("Label15").Text = znj + qf - jm

如何把控件中的数值保存在变量中进行计算？这样的 Dim t2 As String textbox6.value 这样不行那如何写

Dim t2 As String = e.Form.Controls("Textbox6").Text

老师，这个窗口重新设计了一下但是有遇到2个新问题

1.打开窗口后combobox1中要显示当前年度数值（比如2014）而不是空

2.label15要显示控件（应收1）的数值，如果滞纳金状态选定的话，那abel15显示的是（应收1+滞纳金）的数值，这个值根据滞纳金选定状态改变

3 textbox4输入完数值离开控件后 textbox3 要显示 textbox4 - label15 后的数值，label33 显示label15 。如果textbox3的数据被清除或者等于0 那么label33显示 textbox4

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目114.table

主题：关于组合框列表项目的问题