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

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

绑定的是主表还是窗口表？

窗口表和主表都试了，还是不行，窗口表是副表，绑定窗口表时，第2行都没反应，绑定主表后第一行没反应，第二行则提示报告编号重复，实际也没重复的

做个例子上传测试

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.foxdb

做了个例子，第一次好用，第二次还是一样啊

测试：

我想做的是报告编号为空的加上编号，就是检测完成了要发报告，先给一个报告编号，已有编号的不可以赋值，我现在怎么弄都不可以实现，那个例子也是

测试没有问题。说明你的测试步骤

很奇怪，把日期插入放到textchange里执行就没问题了，之前室放在valuechanged里的