明明你只是只读?
e.Form.Controls("cgsl").ReadOnly = BooleanEnum.True
e.Form.Controls("cgdj").ReadOnly = BooleanEnum.True
e.Form.Controls("gys").ReadOnly = BooleanEnum.True
e.Form.Controls("bh").ReadOnly = BooleanEnum.True
e.Form.Controls("TextBox1").ReadOnly = BooleanEnum.True
Tables("采购表").Current.Save()
Dim a As dialogresult
a = MessageBox.Show("备货完毕.请问是否继续编辑下一订单?","提示", MessageBoxButtons.yesno, MessageBoxIcon.Question)
If a = dialogresult.yes Then
With Tables("采购表")
.Position = .Position + 1
End With
Else
e.Form.close()
End If