
加好友 发短信
等级:超级版主
帖子:112377
积分:572147
威望:0
精华:9
注册:2015/6/24 9:21:00
|
Post By:2018/9/1 17:07:00 [显示全部帖子]
If Tables("销售订单").Current.DataRow.RowState = DataRowState.Added AndAlso Tables("销售明细表").Current Is Nothing Then Tables("销售订单").Current.Delete DataTables("销售订单").saveElseIf Tables("销售订单").Current.DataRow.RowState = DataRowState.Added AndAlso Tables("销售明细表").Current IsNot Nothing Then MessageBox.show("当前订单尚未保存,不能关闭!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) return End Ifforms("xxxx").open
|
|