红袍老师,这段代码是窗口里“已安排”代码,怎么运行没有效果呢?也不提示错误,看怎么修改呢?If MessageBox.Show("是否已安排?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
If User.Group = "清新工厂" Then
Tables("船运计划2").Current("用户日志") = User.Name & "已将装船状态调整为"& Tables("船运计划2").current("状态")="已安排" & Date.Now
Tables("船运计划2").current("状态")="已安排"
DataTables("船运计划2").Save()
End If
End If