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

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

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

DataTables().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

我再试下

谢谢，可以了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:网络环境下获取新最数据3.rar

最好加上一个判断：
 
 
If e.Col.Name = "付款期ID"  Then
    If e.IsFocusCell 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
End If

 

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.CommandText = "SELECT DISTINCT 客户 From {订单}"
dt = cmd.ExecuteReader()
cmb = e.Form.Controls("ComboBox1")
cmb.ComboList= dt.GetComboListString("客户")

 

 

貌似 这个也可以做到的吧

这个做  列表项目  可以，但是需要保存的是  客户id,

ComboList只取到了 客户  值

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.CommandText = "SELECT DISTINCT 客户 From {订单}"
dt = cmd.ExecuteReader()
cmb = e.Form.Controls("ComboBox1")
cmb.ComboList= dt.GetComboListString("客户") 

要不变通这下，用ComboList取  客户id  值做 列表项目 的实际值，表中显示列就用  客户

我试下

你可以变通的做做试试!

这样设置有冲突：ComboList取的就是 列表项目 的 显示值；