[求助]狐表CaseStudy目录的自动输入问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]狐表CaseStudy目录的自动输入问题

[求助]狐表CaseStudy目录的自动输入问题

共有28432人关注过本帖树形打印复制链接主题：[求助]狐表CaseStudy目录的自动输入问题

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/7/17 15:20:00 [显示全部帖子]

示例二

同样，假定窗口中有一个组合框(ComboBox)，希望这个窗口能够列出订单表所有的客户名称，如果订单表采用动态加载，那么显然无法从订单表中获得所有客户名称，只能利用ExecuteReader直接从后台提取：

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("客户")

上述代码可以设置在窗口的AfterLoad事件中。

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/7/17 16:12:00 [显示全部帖子]

上面不就是示例吗，设置在窗口的AfterLoad事件即可。

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/7/17 16:39:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目141.table

[本帖被加为精华]

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/7/17 16:54:00 [显示全部帖子]

这个啊，留给大家做练习。
参考我的代码，然后想一想，其实很好解决。

[此贴子已经被作者于2009-7-17 16:54:03编辑过]

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/7/17 17:21:00 [显示全部帖子]

先自己做.
三天后,没有作出来的话,我给答案.

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/8/5 14:45:00 [显示全部帖子]

DataColChanged事件：

'如果刚刚输入的是省市或县市列
If e.DataCol.Name = "省市" Orelse e.DataCol.Name = "县市" Then
    Dim cmd As New SQLCommand
    Dim dt As DataTable
    Dim cmb As WinForm.ComboBox
    cmd.CommandText = "SELECT DISTINCT 区号,邮编 From {行政区域} Where 省市 = '" & e.DataRow("省市") & "' And 县市 = '" & e.DataRow("县市") & "'"
    dt = cmd.ExecuteReader()
    If dt.DataRows.Count > 0 Then
        e.DataRow("区号") = dt.DataRows(0)("区号")
        e.DataRow("邮编") = dt.DataRows(0)("邮编")
    End If
End If

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

主题：[求助]狐表CaseStudy目录的自动输入问题