客户档案信息窗口 地址文本框
我想实现 双击后出现 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
[此贴子已经被作者于2011-8-25 10:33:17编辑过]