主题：建立省市县目录树保存后重开没有了下拉功能

建立省市县目录树保存了，重开后‘省’列没有了下拉功能，县市数据变成空白，但下拉功能还在，区号和邮编的数据都还在

此主题相关图片如下：qq截图20140403131430.png

事件：prepareEdit：

If e.IsFocusCell AndAlso e.Col.Name = "县市" Then
    e.Col.Combolist = DataTables("行政区域").GetComboListString("县市", "[省] = '" & e.Row("省") & "'")
End If

 

DataColChanged：

If e.DataCol.Name = "省" OrElse e.DataCol.Name = "县市" Then
    Dim dr As DataRow
    Dim Filter As String
    Filter = "[省] = '" & e.DataRow("省") & "' And [县市] = '" & e.DataRow("县市") & "'"
    dr = DataTables("行政区域").Find(Filter) '在行政区域表查找所输入省市和县市的行
    If dr IsNot Nothing Then '如果找到
        '将找到行的区号和邮编内容填入到正在输入的行中
        e.DataRow("区号") = dr("区号")
        e.DataRow("邮编") = dr("邮编")
    Else
        '否则清除区号和邮编两列的内容
        e.DataRow("区号") = Nothing
        e.DataRow("邮编") = Nothing
    End If
End If

 

项目事件：

AfterOpenProject：

Tables("会员").Cols("省").Combolist = DataTables("行政区域").GetComboListString("省")

 

请问哪里出问题了？ 还是漏了什么？

上例子看看.

最下面一行新增加的
此主题相关图片如下：qq截图20140403131430.png

输入省/市县后自动弹出相应的区号和邮编
此主题相关图片如下：1.png

保存后重开，县市数据就清空了
此主题相关图片如下：2.png

纸上不谈兵,请上文件例子.