这是changeEdit中的事件代码
If e.Form.Controls("ckdm").text<>"cpc" Then '只有选择成品仓时才执行以下代码
Return
End If
Dim ckmc As String = e.F+orm.Name
Dim shang1 As Table = Tables(ckmc+"_shang1")
Dim drkhdm As String = shang1.current("khdm")
Dim drdjbh As String = shang1.current("djbh")
Dim dckhdm As String = "cpc"
Dim spdm As String = e.Row("spdm")
Dim ysdm As String = e.Row("gg1dm")
Dim cmdm As String = e.Row("gg2dm")
Dim sl As Integer=e.text
Dim djbh As String=Tables(_fckmc+"_"+_glb).current(_gldm) '父窗口单据编号
If Forms(_fckmc).Controls("bianji").text="1" Then
Tables(_fckmc+"_"+_glb).save '如果主表状态是新增,则同时保存主表,做到实时保存,并且重置主表状态为编辑
Forms(_fckmc).Controls("xiugai").performclick
'Forms(_fckmc).Controls("bianji").text="2"
End If
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
Dim cmb As WinForm.ComboBox
cmd.C
Dim a1 As String ="SELECT * F+rom bhd1mx"
Dim a2 As String =" where djbh='"+djbh+"' And drdjbh='"+drdjbh+"' And dckhdm='"+dckhdm+"'"
Dim a3 As String =" And spdm='"+spdm+"' and ysdm='"+ysdm+"' and cmdm='"+cmdm+"'"
Dim taba As String =a1+a2+a3
cmd.CommandText = taba
dt = cmd.ExecuteReader(True)
If dt.DataRows.Count=0 Then '如果不存在则添加
dr= dt.AddNew
dr("djbh")=djbh '获取父窗口的单据编号
dr("spdm")=spdm
dr("ysdm")=ysdm
dr("cmdm")=cmdm
dr("sl")=sl
dr("drkhdm")=drkhdm
dr("drdjbh")=drdjbh
dr("dckhdm")=dckhdm
dr.save
Else '否则更新
dt.DataRows(0)("sl")=sl
dt.DataRows(0).save
End If
'配货数量溢出提示(配货数量)
If e.Row("wwgsl")-e.Row("tzdsl")-e.Row("phsl")<0 Then
MessageBox.Show("配货数量超出未完工数量,请修改!")
End If
加好友 
发短信
Post By：2015/4/22 15:15:00 [只看该作者]
