Foxtable(狐表)用户栏目专家坐堂 → 全局变量与窗口控件初探


  共有29985人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
kylin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级:狐精 帖子:3036 积分:19223 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By:2008/9/25 15:09:00 [显示全部帖子]

以下是引用czy在2008-9-25 14:14:00的发言:

如果能灵活运用全局变量,会给输写代码省却不少麻烦,窗口控件也是如此,下面是我的一个练习例子。
Filler表窗口中的组合框能一框多用,根据指定的条件生成来源于不同字段中的不重复列表项目。
确定按钮是一个通用按钮,很简单,但功能很强大。
现在不满足的是没有将三个单选框的代码做成通用代码,因为我还不知道在窗口如何获取焦点所在控件名称。
供菜鸟探讨,高手勿笑。


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

收藏


 回到顶部
帅哥哟,离线,有人找我吗?
kylin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级:狐精 帖子:3036 积分:19223 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By: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编辑过]

不错,建议也加精。


 回到顶部
帅哥哟,离线,有人找我吗?
kylin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级:狐精 帖子:3036 积分:19223 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By:2008/9/25 18:14:00 [显示全部帖子]

以下是引用gdlgh在2008-9-25 17:18:00的发言:

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


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

太好了,建议加精。


 回到顶部