如果生产调度令号唯一，我的代码如下，没有问题
Select Case e.DataCol.name
Case "生产调度令号"
Dim dr As DataRow = DataTables("订单核价").Find("生产调度令号 = '" & e.NewValue & "'")
If dr Is Nothing Then
dr = DataTables("订单核价").AddNew()
dr("接单日期") = e.DataRow("接单日期")
dr("生产调度令号") = e.DataRow("生产调度令号")
dr("单位或部门") = e.DataRow("单位或部门")
dr("任务名称") = e.DataRow("任务名称")
dr("计划开始日期") = e.DataRow("计划开始日期")
dr("计划完工日期") = e.DataRow("计划完工日期")
dr("计划工期按天计算") = e.DataRow("计划工期按天计算")
dr("所需人数") = e.DataRow("所需人数")
dr("联系人") = e.DataRow("联系人")
dr("联系电话") = e.DataRow("联系电话")
dr("派工姓名") = e.DataRow("派工姓名")
dr("所内任务号") = e.DataRow("所内任务号")
End If
If dr("生产调度令号") = Nothing Then
dr.Delete
End If
Dim dj As DataRow = DataTables("订单核价").Find("生产调度令号 = '" & e.OldValue & "'")
If dj IsNot Nothing Then
dj.Delete ' 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
但是两列组合，我弄了好久都没弄出来，麻烦您能帮我看一下吗
加好友 
发短信
Post By：2013/8/19 9:01:00 [只看该作者]
