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

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

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