主题：想在Cols("车牌号").Combolist 里显示车牌号和客户

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.Connection Name = "数据源名称"
cmd.CommandText = "SELECT distinct 车牌号,客户 From {客户表} "
dt = cmd.ExecuteReader
Dim v as string

For Each dr As DataRow in dt.DataRows

     v = v & dr("车牌号") & " " & dr("客户") & “|”

Next

Tables("销售清单").Cols("车牌号").Combolist = v

用5秒是肯定的，从后台取3000行数据，还好组合成列表框。
 
用下面的代码可能会快一点:
 
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.Connection Name = "数据源名称"
cmd.CommandText = "SELECT distinct 车牌号,客户 From {客户表} "
dt = cmd.ExecuteReader
Dim v As New StringBuilder
For Each dr As DataRow in dt.DataRows
    v.Append(dr("车牌号"))
    v.Append(" ")
    v.Append(dr("客户"))
    v.Append("|")
Next
Tables("销售清单").Cols("车牌号").Combolist = v.Tostring
 

原理参考：

http://help.foxtable.com/topics/2097.htm

 
不过3000个列表项目，似乎没有实际的意义，会不会太多了？

 

 

改用7楼方法，现在是几秒钟？

你可以在DataColChanging事件中设置代码，判断输入的内容是否包括空格，如果有空格，取空格之前的字符，就是车牌号了。