|
If Tables("机具库存资料").DataTable.HasChanges Then
Dim Result As DialogResult
Result = MessageBox.Show("窗体处于编辑状态,是否放弃编辑退出?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If Result = DialogResult.No Then
'jinzhihangjianyidong= False
ElseIf result = DialogResult.Cancel Then
e.cancel = True
ElseIf result = DialogResult.Yes Then
Tables("机具库存资料").Current("机具条码") = e.Form.Controls("jijutiaomatext1").Value
Tables("机具库存资料").Current("所属仓库") = e.Form.Controls("suoshucangkuCombo").Value
Tables("机具库存资料").Current("客户姓名") = e.Form.Controls("kehuxingmingCombo").Value
Tables("机具库存资料").Current("机具型号") = e.Form.Controls("jijuxinghaoCombo").Value
Tables("机具库存资料").Current("机具类型") = e.Form.Controls("jijuleixingCombo ").Value
Tables("机具库存资料").Current("厂家名称") = e.Form.Controls("changjiaxingmingCombo").Value
Tables("机具库存资料").Current("机具来源") = e.Form.Controls("jijulaiyuanCombo").Value
Tables("机具库存资料").Current("机具所属机构") = e.Form.Controls("jijusuoshujigouCombo").Value
Tables("机具库存资料").Current("机具所属机构负责人") = e.Form.Controls("jijusuoshujigongfuzerenCombo").Value
Tables("机具库存资料").Current("所属机构级别") = e.Form.Controls("suoshujigoujibieCombo").Value
DataTables("机具库存资料").save
'jinzhihangjianyidong= True
End If
End If
|
加好友 
发短信
Post By：2017/6/18 21:35:00 [显示全部帖子]
