专家坐堂-窗口流水帐Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口流水帐  (http://foxtable.com/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("类别")