以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口流水帐  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147999)

--  作者:禾成
--  发布时间:2020/3/28 21:07:00
--  窗口流水帐
这个代码我放在e.Form.Controls("类别")的TextChanged上
总是达不到效果,如果类别为收入是收入那里不显示,支出却显示
如果类别为支出就正常,搞了很久都没搞好,特来请教

If e.Form.Controls("类别").text = "" Then
    e.Form.Controls("收入").Visible = False
    e.Form.Controls("支出").Visible = False
    
    If e.Form.Controls("类别").text = "收入" Then
        e.Form.Controls("收入").Visible = True
    Else
        e.Form.Controls("支出").Visible = True
    End If
End If

--  作者:李孝春
--  发布时间:2020/3/28 21:53:00
--  回复:(禾成)窗口流水帐
这样呢?
当类别为空时 不显示   反之不为空时就显示
If e.Form.Controls("类别").text = "" Then
    e.Form.Controls("收入").Visible = False
    e.Form.Controls("支出").Visible = False
    Else
        e.Form.Controls("收入").Visible = True
        e.Form.Controls("支出").Visible = True
End If

--  作者:禾成
--  发布时间:2020/3/29 12:58:00
--  

也是不行我试过了很多

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看


--  作者:2900819580
--  发布时间:2020/3/29 14:02:00
--  

    e.Form.Controls("收入").Visible = False
    e.Form.Controls("支出").Visible = False
If e.Form.Controls("类别").text > "" Then    
    If e.Form.Controls("类别").text = "收入" Then
        e.Form.Controls("收入").Visible = True
    Else
        e.Form.Controls("支出").Visible = True
    End If
End If

--  作者:禾成
--  发布时间:2020/3/30 8:24:00
--  我上面的问题还没有解决
又是一个星期的开始,在此祝各位老师,各位狐友在新的一个星期里工作愉快!

我上面的问题还没有解决,请各位老师指点一下

--  作者:有点蓝
--  发布时间:2020/3/30 9:11:00
--  
4楼的的用法如果也有问题,请上传实例测试
--  作者:禾成
--  发布时间:2020/3/30 14:34:00
--  
成了,找了很久原来是窗口AfterLoad的这句害的
Dim cmb As WinForm.ComboBox = e.form.Controls("类别")
cmb.ComboList = DataTables("类别项目").GetComboListString("类别")