以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教下，如何实现表中数据更换中出现提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194463)
--  作者：SUV2258
--  发布时间：2024/12/12 16:43:00
--  请教下，如何实现表中数据更换中出现提示
老师，我想实现下面的功能：往表中输入新数据时，可以正常输入，但输入数据后进行修改时，则会出现提示，目前需要所有的数据都要出现，但又不会影响后期的修改权限分配。请问下应该如何实现

例如：校验信息表中有校验编号列，器具名称列等，当输入新数据时，可以正常操作，但对已输入数据进行修改时，则会出现：你正在进行修改  的提示，
--  作者：有点蓝
--  发布时间：2024/12/12 16:54:00
--  
DataColChanged事件

Select Case e.DataCol.Name
    Case "A列","B列","C列"
if e.newvalue > "" then
msgbox("你正在进行修改")
end if
End Select
--  作者：SUV2258
--  发布时间：2024/12/13 20:43:00
--  
老师，我把你代码中的A/B/C列更改成我数据表中的列名称，执行时却出现了：”调用的目标出现了异常“这个错误提示，请问下是什么原因，修改后的代码如下：

Select Case e.DataCol.Name
    Case "金额","交费","交费日期"
if e.newvalue > "" then

msgbox("你正在进行修改")

end if
End Select
--  作者：有点蓝
--  发布时间：2024/12/14 8:33:00
--  
if e.newvalue > "" then
改为
if e.datarow.isnull(e.DataCol.Name)=false then
--  作者：SUV2258
--  发布时间：2024/12/17 17:21:00
--  
老师，修改代码后，在增加行时也会出现提示，这个问题怎么解决
--  作者：有点蓝
--  发布时间：2024/12/17 17:38:00
--  
新增行会触发逻辑列的datacolchanged。

datarowAdding事件：
systemready = False
e.DataRow("某逻辑列") = False
systemready = True