主题：[求助代码问题

Select Case e.DataCol.name
Case "项目名称"
Dim dr As DataRow = DataTables("销售_汇总").Find("项目名称= '" & e.OldValue & "'")
If dr Is Nothing Then
dr = DataTables("销售_汇总").AddNew()
dr("项目名称") = e.DataRow("项目名称")
dr("客商名称") = e.DataRow("客商名称")
dr("合同单价") = e.DataRow("合同单价")
Else
dr("项目名称") = e.DataRow("项目名称")
End If
Case "客商名称","合同单价"
Dim dr As DataRow = DataTables("销售_汇总").Find("项目名称= '" & e.DataRow("项目名称") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select

 

大家帮忙看看这段代码有什么问题吗？问什么用录入窗口一输入项目名称，就会报错呢？

并没有在汇总表的datacolchanged中写入任何代码啊？

本来我是要完成这样一个功能，就是，比如有三个表，汇总表 信息表 明细表1 

信息表是汇总表的父表 汇总表是明细表的父表

然后实现 信息表每增加一个新合同，汇总表中自动相应增加一行，在项目名称 客商名称和单价列 都自动复制信息表中的内容。

做了个信息表的录入窗口，保存时其他都没有问题，只是一输入项目名称就报错，显示运行出错。

而且为什么已经按照项目名称建立了关联，在父表删除行的时候，子表没有响应的删除关联行呢，我选择的是单向关联

运行错误：

Exception has been thrown by the target of an invocation.

显示详细信息：

错误所在事件：表，销售_信息，DataColChanged
详细错误信息：
System.Reflection.TargetInvocationException: Exception has been thrown by the target of an invocation. ---> 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.DataRow.set_Item(String O11l100100, Object Oll00)
   at UserCode.DataColChanged(DataColEventArgs e)
   --- End of inner exception stack trace ---
   at System.RuntimeMethodHandle._InvokeMethodFast(Object target, Object[] arguments, SignatureStruct& sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
   at System.RuntimeMethodHandle.InvokeMethodFast(Object target, Object[] arguments, Signature sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
   at System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture, Boolean skipVisibilityChecks)
   at System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)
   at Foxtable.DataTable.O1100l0O01l110O0l00Oll11(Object O0l0O0, DataColumnChangeEventArgs O)

具体报错位置在信息表的datacolchanged里，也就是我最开始的那段代码，可是找不到哪里有错误啊，很奇怪啊

这个跟在没有数据行的表 的输入窗口新增行  有关系吗？

谢谢你，这个问题已经解决了，我把关于合同单价的代码都删掉了，可是还有一个问题，您能再帮忙给我看看嘛，就是，我的关联结构是这样 信息表是汇总表的父表，汇总表又是明细表的父表，那么我删除信息表中的某行时，为什么只有汇总表的关联行删掉了，明细表中的关联行依然存在？

为什么我的项目各表设置的关联，删除行时都不能删除子表的关联行呢，在同步删除的选项页勾选了啊

原来是可以的，没办法弄例子啊，我这个是连接外部数据源的，上传之后也打不开啊