用快捷菜单删除主表行,想增加下面的代码,怎么操作?
If Tables("出库主表.出库明细表").Rows.Count > 0 Then MessageBox.Show("该出库单有明细项,请先删除明细项再删除出库单!") ReturnElse If MessageBox.Show("是否删除?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then Tables("出库主表").Current.Delete End IfEnd If