Dim CPH As String =Tables("单位情况.车辆明细表").Current("车牌号") If MessageBox.Show("车牌号: "& CPH & "" & vbcrlf & "该车辆是否已售出?" & vbcrlf & "售出后该车辆将不统计在现有车辆数量之内","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then Tables("单位情况.车辆明细表").Current("车辆去向") = "出售" Tables("单位情况.车辆明细表").Current("sj") = Date.Today End If