主题：[求助] 任何用户第一次登陆时，无法输入数据

明明你只是只读?

 

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

老大,问你个问题,他有个列叫发货,是逻辑列类型,居然写入了字符,是怎么弄进去的?在发货表.