|
With Tables("提取工艺")
If .Rows.Count > 0 Then
Dim dr As Row = .Rows( .TopPosition )
If DataTables("提取产品成本表").Find("产品批号 = '" & dr("产品批号") & "'AND 存货编码 = '" & dr("存货编码") & "'") IsNot Nothing Then
Messagebox.Show("提取产品成本表已经存在相同批号且编码相同的记录","提示", MessageBoxButtons.YesNo,MessageBoxIcon.Information)
Return '那么返回
End If
Dim drnew As Row = Tables("提取产品成本表").AddNew
drnew("存货名称") = dr("产品名称")
drnew("存货编码") = dr("产品编码")
drnew("产品批号") = dr("产品批号")
drnew("产品批次") = dr("产品批次")
'其它字段赋值
Dim acount As Double
For i As Integer = .TopPosition To .BottomPosition
acount += .Rows(i)("金额")
Next
drnew("流转金额") = acount
End If
MainTable = Tables("提取产品成本表")
End With
|
加好友 
发短信
Post By：2016/5/23 22:34:00 [显示全部帖子]
