键盘和鼠标的选择 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 键盘和鼠标的选择

共有2566人关注过本帖树形打印复制链接主题：键盘和鼠标的选择

Bin

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/5/27 16:17:00 [只看该作者]

你那个是表达式列吧.

zhangxl1964

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：553 积分：5327 威望：0 精华：0 注册：2011/6/7 13:33:00

Post By：2014/5/27 16:25:00 [只看该作者]

是数值列

Bin

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/5/27 16:25:00 [只看该作者]

上个例子看看吧

zhangxl1964

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：553 积分：5327 威望：0 精华：0 注册：2011/6/7 13:33:00

Post By：2014/5/27 17:17:00 [只看该作者]

好，明天上传

zhangxl1964

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：553 积分：5327 威望：0 精华：0 注册：2011/6/7 13:33:00

Post By：2014/5/28 8:33:00 [只看该作者]

老师：你好！

在窗口动态目录的1、在窗口的AfterLoad事件中加入代码：

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = DataTables("表A").GetComboListString("型号")

2、在ComboBox2的Enter事件中加入代码：

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As string = e.Form.Controls("ComboBox1").Value
cmb.ComboList = DataTables("表A").GetComboListString("规格", "型号 = '" & str & "'")

3、最后在ComboBox3的Enter事件中加入代码：

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox2").Value
cmb.ComboList = DataTables("表A").GetComboListString("颜色", "规格 = '" & str & "'")

是从打开的表中实现提取信息，怎样实现从没有加载表B的后台提取？

Bin

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/5/28 8:34:00 [只看该作者]

SQLGetComboListString

zhangxl1964

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：553 积分：5327 威望：0 精华：0 注册：2011/6/7 13:33:00

Post By：2014/5/28 9:30:00 [只看该作者]

我前面没有说清楚。要求是从没有加载的客户表中取值并填入订单表中：下面的窗口动态目录是从同一表中取值，如何加上从没有加载的表B取值到表A并输入？

在窗口动态目录的1、在窗口的AfterLoad事件中加入代码：

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = DataTables("表A").GetComboListString("型号")

2、在ComboBox2的Enter事件中加入代码：

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As string = e.Form.Controls("ComboBox1").Value
cmb.ComboList = DataTables("表A").GetComboListString("规格", "型号 = '" & str & "'")

3、最后在ComboBox3的Enter事件中加入代码：

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox2").Value
cmb.ComboList = DataTables("表A").GetComboListString("颜色", "规格 = '" & str & "'")

Bin

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/5/28 9:33:00 [只看该作者]

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.CommandText = "SELECT DISTINCT 客户名称 From {客户表}"
dt = cmd.ExecuteReader()
cmb = e.Form.Controls("ComboBox1")
cmb.ComboList= dt.GetComboListString("客户名称")

zhangxl1964

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：553 积分：5327 威望：0 精华：0 注册：2011/6/7 13:33:00

Post By：2014/5/28 11:43:00 [只看该作者]

谢谢！

下一主题 >> << 上一主题

总数 19 上一页 1 2

主题：键盘和鼠标的选择