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里，也就是我最开始的那段代码，可是找不到哪里有错误啊，很奇怪啊

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