以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口动态列表项目例子问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=4094)
--  作者：hty4000
--  发布时间：2009/8/27 21:24:00
--  窗口动态列表项目例子问题
请问在窗口动态列表项目例子中，窗口中型号的下拉内容是怎么显示出来的，在窗口管理中并没有看到什么代码，这是怎么做到的?
--  作者：blackzhu
--  发布时间：2009/8/27 21:28:00
--  
以下是引用hty4000在2009-8-27 21:24:00的发言：
请问在窗口动态列表项目例子中，窗口中型号的下拉内容是怎么显示出来的，在窗口管理中并没有看到什么代码，这是怎么做到的?

论坛里找一下
--  作者：yangming
--  发布时间：2009/8/27 21:34:00
--  

窗口中的动态列表项目

在Foxtable编程部分，我们已经学会了如何在表中实现动态列表项目。
现在我们同样看看如何在窗口中实现列表项目。

本节示例可以参考CateStydy目录下的文件：窗口动态列表项目.table

示例一

假定有一个表：

和下面这样的一个窗口:

希望第一个组合框能够自动列出所有型号供选择，而第二个组合框能够列出所选型号的全部规格供选择，同样第三个组合框能够列出所选规格的全部颜色供选择。

设计的步骤为：

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 & "\'")

示例二

假定组合框的列表项目并非动态的，随着应用的深入，这些列的列表项目可能会需要调整，虽然通过窗口设计，可以方便地重新设置列表项目。但是对于一个已经交付使用的系统来说，开放窗口设计功能给最终用户，是一个非常危险的做法。有没有安全一些的做法呢？有，通用的做法是：

1、新建一个表(假定表名为项目)，包括三列，分别是表、列、列表项目，用于输入某表某列的列表项目:

2、将组合框的Enter事件代码设为：

Dim cmb As WinForm.ComboBox = e.Sender
If cmb.Items.Count > 0 Then \'如果已经设置了项目
    Return \'则返回
End If
Dim t As Table = cmb.BindTable \'获得绑定的Table
Dim c As Col = cmb.BindCol \'获得绑定的Col
Dim dr As DataRow = DataTables("项目").Find("[表] = \'" & t.Name & "\' And [列] = \'" & c.Name & "\'")
If dr IsNot Nothing Then \'如果在项目表找到对应的行
    cmb.Combolist = dr("列表项目") \'则设置列表项目
End If

代码原理很简单，根据代码注释，大家应该都能理解。

一个窗口可能有很多个组合框，针对每个组合框重复设置这样的代码，显得太累赘，为此我们可以使用窗口的全局事件Enter，这样只需设置一次即可。但是全局事件对所有类型的控件有效，而我们的代码是针对组合框的，即使是组合框，也不见得都要执行上述代码。我们可以利用控件名称进行标识，例如对于需要执行上述代码的组合框，名称统一用字符"_cmb"开始，这样只需将全局事件Enter设为：

If e.Sender.Name.SubString(0,4) = "_cmb" Then \'如果名称符合
    Dim cmb As WinForm.ComboBox = e.Sender
    If cmb.Items.Count > 0 Then \'如果已经设置了项目
        Return \'则返回
    End If
    Dim t As Table = cmb.BindTable \'获得绑定的Table
    Dim c As Col = cmb.BindCol \'获得绑定的Col
    Dim dr As DataRow = DataTables("项目").Find("[表] = \'" & t.Name & "\' And [列] = \'" & c.Name & "\'")
    If dr IsNot Nothing Then \'如果在项目表找到对应的行
        cmb.Combolist = dr("列表项目") \'则设置列表项目
    End If
End If