If MessageBox.Show("是否删除?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then Tables("产品表.图号表").Current.Delete End If DataTables("产品表").ReplaceFor("产品图号", Nothing, "[产品ID] = '" & Forms("图号生成").Controls("TextTH").text & "'") e.Form.close
加好友 
发短信
Post By：2015/10/12 22:57:00 [只看该作者]
