Dim ab As Row =Tables("订单编码").Current
If ab("保修状态")="保修期内" Then
Forms("设备报修").open
If ab("状态列_交付机器")="" Then
MessageBox.Show("尚未领取设备,不能进行报修操作!")
Forms("设备报修").Close
Else
Tables("订单编码.设备报修").AddNew()
End If
Else
Forms("收费维修").open
End If
上述代码运行时候 陷入了逻辑混乱 直接关闭了系统项目
麻烦纠正一下:实现:
当保修状态为保修期内的时候 打开设备报修窗体 反之打开收费维修窗体
同时又能保证状态列—交付机器为空白时候 关闭设备报修窗体