Dim result = MessageBox.Show("是否取消开piao?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) If result=DialogResult.Yes Then If Tables("开piao指令").Current("是否开piao")=False Then Tables("开piao指令").current("是否开piao") =True Else Tables("开piao指令").current("是否开piao") =False End If End If
|