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

 动态设置 数据字典，如下

http://www.foxtable.com/help/topics/2653.htm

 那么，就在DataTable上想办法。编辑这一列的时候，去查一遍吧。

 Dim cmd As New SqlCommand
 cmd.Conn...name = "数据源"
 cmd.CommandText = "select * from {订单}"
 dmp.DataTable = cmd.ExecuteReader
 ......

 呵呵，这个办法行不通！

 因为这个临时的dt会在这个事件结束后消失。

 用老办法吧，把那个表重新加载一次。

 DataTables("付款期").LoadFilter = ""
 DataTables("付款期").Load

可以取到最新数据的，你一个客户端新增或者修改完数据的时候，记得DataTables().Save或者Tables().Save或者Tables().Rows().Save

这样才会把数据保存入数据库的。

 楼主，事件放在prepareEdit事件里，然后，代码如下

If e.Col.Name = "付款期ID"  Then

    DataTables("付款期").LoadFilter = ""
    DataTables("付款期").Load
   
    Dim dmp As New TableDataMap
    dmp.DataTable = "付款期"
    dmp.ValueCol = "付款期ID" '指定取值列
    dmp.DisplayCol = "付款期" '指定显示列
    '指定下拉列表时显示哪些列的数据
    dmp.ListCols = "付款期ID,付款期,付款天数"
    dmp.Sort = "付款期ID" '指定排序方式
    Tables("订单").Cols("付款期ID").DataMap = dmp.CreateDataMap() '生成并设置DataMap
End If