主题：[求助]动态列表 代码

此主题相关图片如下：2012.jpg

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

这是帮助里的代码，做个示范项目就没错，做到现在的项目里就出现上图报错提示，哪位给指导下