我在运行项目时提示以下错误：
HTB1上传总工办错误提示
.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2014.11.11.1
错误所在事件：表，HTB1，DataColChanged
详细错误信息：
Exception has been thrown by the target of an invocation.
Column 'LJJDWFK' is read only.
HTB2上传总工办错误提示
.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2014.11.11.1
错误所在事件：表，HTB2，DataColChanged
详细错误信息：
Exception has been thrown by the target of an invocation.
Column 'WFHTJDK' is read only.
HTB3上传总工办错误提示
.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2014.11.11.1
错误所在事件：表，HTB3，DataColChanged
详细错误信息：
Exception has been thrown by the target of an invocation.
Column 'WFHTJDK' is read only.
HTB3上传总工办错误提示
.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2014.11.11.1
错误所在事件：表，HTB4，DataColChanged
详细错误信息：
Exception has been thrown by the target of an invocation.
Column 'LJJDWFK' is read only.
也根据错误去查找了，并按用MessageBox跟踪的方法找到是下列代码有错：
If e.DataCol.Name = "sbzgb" AndAlso e.DataRow("sbzgb") = True Then
Dim dS As DataRow
dS = DataTables("HTB").Find("HTBH = '" & e.DataRow("HTBH") & "'" )
If dS Is Nothing '如果找到, 则设置各列内容
Dim nma() As String = { "合同签订日期","ZWXT","ZWLB","HTLX","HTBH","LBJM","HTLB","DWJM","XMGLDW","XMLB","XMBM","XMMC","分项名称","KSMC","SSLR","FYDL","HTFYLB","HTJE","XMGS","HTMC","JSJE","JSJE2","LJCZ","XXJD","FKBL","YFJDK","LJPFJDK","LJZFGCK","ZWXTYE","HTFS","GQ","HTJSFS","HTJJTK","FKJD","工作范围","逾期处罚","HTJBR","HTBG","HTYW","HTSH","备注" } 'A表数据来源列
Dim nmb() As String = { "合同签订日期","ZWXT","ZWLB","HTLX","HTBH","LBJM","HTLB","DWJM","XMGLDW","XMLB","XMBM","XMMC","分项名称","KSMC","SSLR","FYDL","HTFYLB","HTJE","XMGS","HTMC","JSJE","JSJE2","LJCZ","XXJD","FKBL","YFJDK","LJPFJDK","LJZFGCK","ZWXTYE","HTFS","GQ","HTJSFS","HTJJTK","FKJD","工作范围","逾期处罚","HTJBR","HTBG","HTYW","HTSH","备注" } 'B表数据接收列
Dim dr As DataRow = DataTables("htB").AddNew
For Each dc As DataCol In DataTables("htB").DataCols
dr(dc.Name) = e.DataRow(dc.Name)
Next
End If
End If
但没有找到 'WFHTJDK'和LJJDWFK' 的代码，然后在杂项的输出全部代码查找，也没有找到，请问老师，是什么原因呢？？
加好友 
发短信
Post By：2015/3/23 9:48:00 [显示全部帖子]
