主题：生成列表项目不成功

生成列表项目不成功，Area11列显示五大洲的列表，选择一个大洲后，Area1列就填充为该大洲的Id号，例如选择“亚洲”，对应Id是3895，在Area22列需要生成下拉列表（属于亚洲的，也就是“东亚和东南亚”），但是Area22 没有下拉列表，怎么回事呢？？请指教，好像PrepareEdit事件中的代码没起作用。

Area11列是在列属性中设置的下拉列表，见表4

 

PrepareEdit事件代码为：

If e.IsFocusCell Then '如果是焦点所在单元格
    If e.Col.Name = "Area22" Then '如果正在编辑的是Area22列
        '从行政区域表提取作为列表项目
        e.Col.Combolist = DataTables("Customer_List").GetComboListString("Area22","[ParentId]= '" & e.Row("Area1") & "'")
    End If
End If

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

 

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

 

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

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

请上例子. 纸上不谈兵,代码看起来没啥问题.

再认真看一眼,你是不是取错表,取错列了?

'从行政区域表提取作为列表项目
        e.Col.Combolist = DataTables("Customer_List").GetComboListString("Area22","[ParentId]= '" & e.Row("Area1") & "'")

 应该这样改吧？如果要生成所在的 洲 全部地区，你还需要额外处理一下。

 

If e.IsFocusCell Then '如果是焦点所在单元格
    If e.Col.Name = "Area22" Then '如果正在编辑的是Area22列
        '从行政区域表提取作为列表项目
        e.Col.Combolist = DataTables("Dict_Area").GetComboListString("Text", "[ParentId]= '" & e.Row("Area1") & "'")
    End If
End If

可以了，谢谢，取错表了