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