动态列表项目之三

更多的时候,列表项目来自于某个表中已经输入的记录,例如客户表已经输入所有的客户名称及资料,那么订单表的客户名称列的列表项目,应该自动从客户表的客户名称列提取。

如果列表项目来自于某个表的某一列,而这个表会经常增加删除行;那么可以在项目事件MainTableChanged中 ,设置代码提取列表项目。

例如:

If MainTable.Name = "订单" Then '如果选择的主表是订单表
    Tables("订单").Cols("客户").Combolist = DataTables("客户").GetComboListString("公司名称")
End
If

上面的代码从客户表提取公司名称,作为订单表客户列的列表项目,由于经常会增加删除客户,所以我们将上面的代码设置在MainTableChanged事件中,这样每次切换到订单表,就会重新设置订单表客户列的列表项目,保证其内容是最新的。

如果某列的列表项目不仅来自于另一个表,而且要根据其它列已经输入的内容来决定显示哪些条目,那么这样的代码就只能设置在表事件PrepareEdit中。

例如:

If e.IsFocusCell Then '如果是焦点所在单元格
   
If e.Col.Name = "县市" Then '如果正在编辑的是县市列
        '从行政区域表提取该省市的县市作为列表项目

        e.Col.Combolist =
DataTables("行政区域").GetComboListString("县市", "[省市] = '" & e.Row("省市") & "'")
   
End If
End
If

上面的代码,根据省市列输入的内容,从行政区域表提取该省市的所有县市,作为县市列的列表项目,这种根据另一列内容来刷新列表项目的代码,必须设置在PrepareEdit事件中。

还有一个最简单的情况,即列表项目来自于某个表的某一列,而这个来源表的内容基本上是固定的,很少机会增加或删除行,那么可以将代码设置在项目事件AfterOpenProject中。

例如:

Tables("客户").Cols("省市").Combolist = DataTables("行政区域").GetComboListString("省市")

上面的代码从行政区域表提取省市列的内容, 作为客户表省市列的列表项目,由于行政区域是固定的,基本上不需要增加删除行,所以从这个表中提取数据作为列表项目,代码可设置在AfterOpenProject事件中。

 


本页地址:http://www.foxtable.com/webhelp/topics/1457.htm