主题：代码错误及查找

我在运行项目时提示以下错误：

 

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' 的代码，然后在杂项的输出全部代码查找，也没有找到，请问老师，是什么原因呢？？