'修改产品工序单价表
Dim Cols1() As String = {"单件产品工序数量","单据编号","车间名称","工序名称","生产任务单号","数量","单价","金额","单价系数","核算单价","时间"}
Dim Cols2() As String = {"单件产品工序数量","单据编号","车间名称","工序名称","生产任务单号","数量","单价","金额","单价系数","核算单价","时间"}
For Each dr1 As DataRow In DataTables("表EE").Select("")
Dim dr2 As DataRow
dr2 = DataTables("产品工序单价明细表").SQLFind("生产任务单号 = '" & dr1("生产任务单号") & "' and 车间名称 = '" & dr1("车间名称") & "' and 工序名称 = '" & dr1("工序名称") & "'")
If dr2 Is Nothing Then
dr2 = DataTables("产品工序单价明细表").AddNew()
Else
''''修改数量,以及单价
dr2("核算单价")=dr1("核算单价")
dr2("数量")=dr1("数量")
'
End If
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
请大家帮我看一下这段代码,如果我把SQLFind 改成了 Find整段代就能正常执行了(不论新增行或者修改数据都可以),但如果是SQLFind的话,只能新增,修改的代码不起作用,请问一下是怎么回事
[此贴子已经被作者于2014-3-29 17:32:10编辑过]