主题：列表项目来自于本列

列表项目来自于列（本表本列）,不好用。新增加的显示不出来，重复的排不出去。

我用了，不对呀。

If e.Col.Name = "型号" Then
     e.Col.Combolist = DataTables("产品").GetComboListString("型号")
End If

谁能答复呀？

此主题相关图片如下：错误的代码.bmp

帮助我看了，是这样的

:If e.IsFocusCell Then '如果是焦点单元格
    If e.Col.Name = "县市" Then '如果正在编辑的是县市列
         '从行政区域表提取该省事的县市作为列表项目
        e.Col.Combolist = Datatables("行政区域").GetComboListString("县市", "[省市] = '" & e.Row("省市") & "'")
     End If
End If

 

易表和EXCELL有都这个功能。

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

点击浏览该文件:自动输入.table

列表项目最好来自本列，这样表好改，方便，不用写太多的程序。

列表项目单独的表存储产品信息，需要写很多程序，单独的表存储产品信息经常需要编辑。

我终于完成了，

If e.IsFocusCell Then '如果是焦点单元格
    If e.Col.Name = "县市" Then '如果正在编辑的是县市列
         '从行政区域表提取该省事的县市作为列表项目
        e.Col.Combolist = Datatables("行政区域").GetComboListString("县市", "[省市] = '" & e.Row("省市") & "'")
     End If
End If