标题：设置列表的问题

“销售订单”表的“单位编号”列设置了代码，引用“单位定义”表中的“单位编号、单位、比率”列作为列表，当光标移到“销售订单”表的“单位编号”列任一位置，然后选择功能区中“日常工作、数据表……”不起作用。

 

请问是什么原因？

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

点击浏览该文件:0080跨表多列作为列表.table

是有这个问题·····

呵呵，先收藏，我抽空看看。

将代码改在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

 

当光标停留在“销售订单”表的“单位编号”列上，如果此时增加行，“单位编号”列的内容会被临时隐藏，新增行输入内容后，“单位编号”列才会显示部分内容，要点击“单位编号”列标题，才会全部显示，请测试。