以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 全局变量与窗口控件初探 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=696) |
||||
-- 作者:czy -- 发布时间:2008/9/25 14:14:00 -- 全局变量与窗口控件初探 如果能灵活运用全局变量,会给输写代码省却不少麻烦,窗口控件也是如此,下面是我的一个练习例子。 Filler表窗口中的组合框能一框多用,根据指定的条件生成来源于不同字段中的不重复列表项目。 确定按钮是一个通用按钮,很简单,但功能很强大。 现在不满足的是没有将三个单选框的代码做成通用代码,因为我还不知道在窗口如何获取焦点所在控件名称。 供菜鸟探讨,高手勿笑。
|
||||
-- 作者:贺老六 -- 发布时间:2008/9/25 15:05:00 -- 呵呵,我顶你 |
||||
-- 作者:kylin -- 发布时间:2008/9/25 15:09:00 -- 以下是引用czy在2008-9-25 14:14:00的发言:
如果能灵活运用全局变量,会给输写代码省却不少麻烦,窗口控件也是如此,下面是我的一个练习例子。 Filler表窗口中的组合框能一框多用,根据指定的条件生成来源于不同字段中的不重复列表项目。 确定按钮是一个通用按钮,很简单,但功能很强大。 现在不满足的是没有将三个单选框的代码做成通用代码,因为我还不知道在窗口如何获取焦点所在控件名称。 供菜鸟探讨,高手勿笑。
收藏 |
||||
-- 作者:老有所乐 -- 发布时间:2008/9/25 15:30:00 -- 收藏,谢谢! |
||||
-- 作者:狐孩儿 -- 发布时间:2008/9/25 16:02:00 -- 收藏,努力学习! 三个单选框代码可统一为: Dim Cbb As WinForm.ComboBox = e.Form.Controls("ComboBox1") e.Form.Controls("Label2").Text = "请选择" & e.Sender.Text & ":" Cbb.Items.Clear Cbb.Value = "" Dim ls As New List(Of String) ls = DataTables("订单").GetUniqueValues("",e.Sender.Text) Cbb.Items.AddRange(ls.ToArray()) Vars("ColName") = e.Sender.Text Cbb.Select() [此贴子已经被作者于2008-9-25 16:06:06编辑过]
|
||||
-- 作者:kylin -- 发布时间:2008/9/25 16:32:00 -- 以下是引用狐孩儿在2008-9-25 16:02:00的发言:
收藏,努力学习! 三个单选框代码可统一为: Dim Cbb As WinForm.ComboBox = e.Form.Controls("ComboBox1") e.Form.Controls("Label2").Text = "请选择" & e.Sender.Text & ":" Cbb.Items.Clear Cbb.Value = "" Dim ls As New List(Of String) ls = DataTables("订单").GetUniqueValues("",e.Sender.Text) Cbb.Items.AddRange(ls.ToArray()) Vars("ColName") = e.Sender.Text Cbb.Select() [此贴子已经被作者于2008-9-25 16:06:06编辑过] 不错,建议也加精。 |
||||
-- 作者:gdlgh -- 发布时间:2008/9/25 17:18:00 -- 交流下,也做个练习例子。(用SQL+DataList)
|
||||
-- 作者:barryliu -- 发布时间:2008/9/25 18:01:00 -- 学习!感谢各位前辈,多搞点例子. |
||||
-- 作者:kylin -- 发布时间:2008/9/25 18:14:00 -- 以下是引用gdlgh在2008-9-25 17:18:00的发言:
交流下,也做个练习例子。(用SQL+DataList)
太好了,建议加精。 |
||||
-- 作者:程兴刚 -- 发布时间:2008/9/26 2:40:00 -- 顶,学习了,谢谢! |