主题：[求助]自动输入,有从表时好象不动了

这样的代码放到PrepareEdit事件中，如果焦点在省市中能动弹就怪了。

改放到MainTableChanging事件中吧。

If MainTable.Name = "客户" Then
    Dim dmp As New TableDataMap
    dmp.DataTable = "行政区域" '指定数据来源表
    dmp.ValueCol = "_Identify" '指定取值列
    dmp.DisplayCol = "省市" '指定显示列
    dmp.Filter = "区号 = '10'"
    dmp.ListCols = "省市,县市,区号,邮编"    '指定下拉列表时显示哪些列的数据
    dmp.Sort = "" '指定排序方式
    Tables("行政区域").cols("省市").DataMap = dmp.CreateDataMap()
End If