我用的是外部数据源,这样好像不行啊
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("生产调度令号")
dr("任务名称") = e.DataRow("任务名称")
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