Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共12 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:全局变量与窗口控件初探

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表窗口中的组合框能一框多用,根据指定的条件生成来源于不同字段中的不重复列表项目。
确定按钮是一个通用按钮,很简单,但功能很强大。
现在不满足的是没有将三个单选框的代码做成通用代码,因为我还不知道在窗口如何获取焦点所在控件名称。
供菜鸟探讨,高手勿笑。


 下载信息  [文件大小: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()
[此贴子已经被作者于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()
[此贴子已经被作者于2008-9-25 16:06:06编辑过]

不错,建议也加精。

7楼
gdlgh 发表于:2008/9/25 17:18:00

交流下,也做个练习例子。(用SQL+DataList)


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:_3.table

8楼
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
顶,学习了,谢谢!
共12 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 4 queries.