主题：网络环境下，记录窗口下拉列表中如何获取新最数据

如果A用户正在录入订单窗口选择【付款期】时，发现少了所需付款期，

让B用户在另一台电脑上增加了新的付款期信息，

这时A用户不退出订单录入窗口，再次点【付款期】下拉列表时，如下方法不能看到新记录

例如我们在项目事件MainTableChanged事件中设置代码：

If MainTable.Name = "订单" Then
    Dim dmp As New TableDataMap
    dmp.DataTable = "客户" '指定数据来源表
    dmp.ValueCol = "ID" '指定取值列
    dmp.DisplayCol = "公司" '指定显示列
    '指定下拉列表时显示哪些列的数据
    dmp.ListCols = "ID,公司,姓氏,名字,职务,业务电话,传真号,地址,城市,邮政编码"
    dmp.Sort = "城市" '指定排序方式
    Tables("订单").Cols("客户 ID").DataMap = dmp.CreateDataMap() '生成并设置DataMap
End If

这样在客户表修改数据后，重新切换到订单表，就会自动重新生成数据字典，保证数据字典的内容是最新的。