主题：列表设置

'表属性-选择-AfterSelChange

If e.NewRange.ColSel = e.Table.cols("单位编号").Index Then 
    Dim dmp As New TableDataMap 
    dmp.DataTable = "单位定义" 
    dmp.ValueCol = "单位编号" 
    dmp.DisplayCol = "单位编号" 
    dmp.ListCols = "单位,单位编号,比率" 
      dmp.Filter = "货品编号 = '" & e.Table.current("货品编号") & "'"  '只包含当前货品编号的列表

    e.Table.cols("单位编号").DataMap = dmp.CreateDataMap()

End If

上面的代码,问题出在红色部分,当点击销售订单表的单位编号列某一单元格时,单位编号列其它单元格的值会被临时隐藏,请问如何设置?