If MessageBox.Show("是否已安排?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then msgbox(User.Group) If User.Group = "清新工厂" Then msgbox(3) Tables("船运计划2").Current("用户日志") = User.Name & "已将装船状态调整为"& Tables("船运计划2").current("状态")="已安排" & Date.Now Tables("船运计划2").current("状态")="已安排" DataTables("船运计划2").Save() End If End If