主题：下拉列表问题

示例：生产表，机台列的下拉取值根据工序列显示

If e.Col.Name = "机台" Then
     e.Col.Combolist = DataTables("生产").GetComboListString("机台","[工序] = '" & e.Row("工序") & "'")
End If
开始时，生产表的记录很少或没有，这是须手工录入我觉得不方便，此时想从下拉列表表中取值，（已录有机台）怎么实现？

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

点击浏览该文件:下拉列表.foxdb

If e.Col.Name = "机台" Then
    e.Col.Combolist = DataTables("生产").GetComboListString("机台","[工序] = '" & e.Row("工序") & "'")
    If e.Col.ComboList = ""
        e.Col.Combolist = DataTables("下拉列表").GetComboListString("机台")
    ElseIf e.Col.ComboList.Split("|").length < 3 Then
        e.Col.Combolist &= "|" & DataTables("下拉列表").GetComboListString("机台")
    End If
End If

谢了

大红袍老师，早上好。2楼代码还不能完全满足使用要求。比如，下拉列表表中，某工序有多个机台，在生产表中录入时，只要选择录入了1个机台，这个工序就不再显示下拉列表中的项目了，该工序的其它机台就只能手工录入了。能否再完善一下，避免在生产表中手工录入。

工序中的机台多少是不确定的.

2楼代码测试没有问题。如果另外改过代码，请重新上传例子和代码

下拉列表会产生重复值

此主题相关图片如下：1.gif

If e.Col.Name = "机台" Then
    e.Col.Combolist = DataTables("生产").GetComboListString("机台","[工序] = '" & e.Row("工序") & "'")
    If e.Col.ComboList = ""
        e.Col.Combolist = DataTables("下拉列表").GetComboListString("机台")
    End If
End If

看懂代码，想怎么改都可以

已搞定,谢了