此主题相关图片如下：捕获.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

和datacolchanging  有关吗？

Select Case e.DataCol.name
Case"报告编号"
If e.newvalue IsNot Nothing Then
Dim dr As DataRow = e.DataTable.find("报告编号 = \'" & e.newvalue & "\'")
 If dr IsNot Nothing Then
messagebox.show("此报告编号已经存在!","提示",messageboxbuttons.ok,messageboxicon.Information)
e.cancel = True
  End If
End If
End Select