- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 全局变量与窗口控件初探 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=696)
-- 发布时间：2008/9/25 14:14:00
-- 全局变量与窗口控件初探
如果能灵活运用全局变量，会给输写代码省却不少麻烦，窗口控件也是如此，下面是我的一个练习例子。
Filler表窗口中的组合框能一框多用，根据指定的条件生成来源于不同字段中的不重复列表项目。
确定按钮是一个通用按钮，很简单，但功能很强大。
现在不满足的是没有将三个单选框的代码做成通用代码，因为我还不知道在窗口如何获取焦点所在控件名称。
供菜鸟探讨，高手勿笑。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:练习3.table |
-- 发布时间：2008/9/25 15:05:00
--
呵呵，我顶你
-- 发布时间：2008/9/25 15:09:00
--
以下是引用czy在2008-9-25 14:14:00的发言：
如果能灵活运用全局变量，会给输写代码省却不少麻烦，窗口控件也是如此，下面是我的一个练习例子。
Filler表窗口中的组合框能一框多用，根据指定的条件生成来源于不同字段中的不重复列表项目。
确定按钮是一个通用按钮，很简单，但功能很强大。
现在不满足的是没有将三个单选框的代码做成通用代码，因为我还不知道在窗口如何获取焦点所在控件名称。
供菜鸟探讨，高手勿笑。
如果能灵活运用全局变量，会给输写代码省却不少麻烦，窗口控件也是如此，下面是我的一个练习例子。
Filler表窗口中的组合框能一框多用，根据指定的条件生成来源于不同字段中的不重复列表项目。
确定按钮是一个通用按钮，很简单，但功能很强大。
现在不满足的是没有将三个单选框的代码做成通用代码，因为我还不知道在窗口如何获取焦点所在控件名称。
供菜鸟探讨，高手勿笑。
| 下载信息 [文件大小：488.0 KB 下载次数：6] | |
 点击浏览该文件:练习3.table |
收藏
-- 发布时间：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编辑过]
-- 发布时间：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()
收藏,努力学习!
三个单选框代码可统一为:
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编辑过]
不错，建议也加精。
-- 发布时间：2008/9/25 17:18:00
--
交流下，也做个练习例子。（用SQL+DataList）
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:_3.table |
-- 发布时间：2008/9/25 18:01:00
--
学习！感谢各位前辈，多搞点例子．
-- 发布时间：2008/9/25 18:14:00
--
以下是引用gdlgh在2008-9-25 17:18:00的发言：
交流下，也做个练习例子。（用SQL+DataList）
| 下载信息 [文件大小：488.0 KB 下载次数：3] | |
| 点击浏览该文件:_3.table |
太好了，建议加精。
-- 发布时间：2008/9/26 2:40:00
--
顶，学习了，谢谢！