主题：[求助]已经绑定表了，怎么不能输入？

此主题相关图片如下：捕获.png

如图，添加报告编号，在文本框里可以输入但是表中不显示是什么原因呢？

文本框valuechanged事件

Dim r As Row = Tables("理化检测_table3").Current
r("报告日期") = Date.Today()

enter事件

With Forms("理化检测").Controls("textbox9")
    If .text = Nothing Then
        e.sender.ReadOnly = BooleanEnum.False
    Else
        e.sender.ReadOnly = BooleanEnum.True
    End If
    MessageBox.Show("报告编号添加后不允许修改,请仔细核对后再添加!","注意")    
End With