客户档案信息窗口  地址文本框  

我想实现 双击后出现 TreeView1  如果选择了 县市后  能自动输入到 客户档案信息的 地址  然后可再后面添加具体地址

现在问题是  我在TreeView1选择了县市后  发现以下错误！  不知道怎么弄了

错误代码位置：窗口,行政区域目录树,TreeView1,NodeMouseClick

System.Data.ReadOnlyException: Column \'地址\' is read only.
   at System.Data.DataRow.set_Item(DataColumn column, Object value)
   at System.Data.DataRow.set_Item(String columnName, Object value)
   at Foxtable.Row.set_Item(String O0l10O0ll0, Object Ol10O)
   at UserCode.NodeMouseClick_ab87c572(TreeViewEventArgs e)

TreeView1代码如下

If e.Node.Level = 1 Then \'如果单击的是第二层节点
Dim ps() As String = e.Node.FullPath.Split("\\")
Dim tr As Row = Tables("客户档案").Current
Dim dr As DataRow = DataTables("编码").Find("省市 = \'" & ps(0) & "\' And 县市 = \'" & ps(1) & "\'")
If dr IsNot Nothing Then \'如果在编码表找到对应的行,则将此行的值写入客户表的当前行.
tr("地址") = dr("省市") & dr("县市")
tr("邮编") = dr("邮编")
End If
e.Form.Close() \'关闭窗口
End If

项目如下 密码 888

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

点击浏览该文件:内控系统19.rar

已经在我项目里面了  蛮好的 ！

现在的问题 和之前的不一样 

描述不清楚吗？

老大 你是怎么解读这错误提示的？