动态列表项目之三

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

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

例如：

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

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

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