以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  新增行前重置【C】列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114782)

--  作者:蓝蚂蚁
--  发布时间:2018/2/22 10:26:00
--  新增行前重置【C】列
我想每新增一行前重置【C】列,代码写在哪里,另外代码如何写,谢谢老师、祝老师新年快乐
[此贴子已经被作者于2018/2/22 10:27:14编辑过]

--  作者:有点甜
--  发布时间:2018/2/22 10:30:00
--  

可以写在 beforeAddDataRow、DataRowAdding 等事件

 

http://www.foxtable.com/webhelp/scr/1587.htm

 


--  作者:蓝蚂蚁
--  发布时间:2018/2/22 11:00:00
--  
谢谢老师的解答,按照您上面的做法,由于我的考虑不周到,导致出现一个问题,重置列需要耗费较长的时间,更好的方法能不能是这样子:重置当前行的对应C列的单元格的内容?
看了本论坛的这个帖子,看不懂:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=608813&ID=88044&skin=1
[此贴子已经被作者于2018/2/22 11:01:15编辑过]

--  作者:有点甜
--  发布时间:2018/2/22 11:07:00
--  

你这样做的目的是什么?

 

你要重置的是新增的这一行,还是新增之前的那一行?

 

如果是新增的一行,为什么要重置?

 

比如 datarowadded事件写代码 e.datatable.DataCols("第二列").RaiseDataColChanged(e.datarow)


--  作者:蓝蚂蚁
--  发布时间:2018/2/22 15:43:00
--  
重置新增之前的那一行的C列
--  作者:有点甜
--  发布时间:2018/2/22 16:06:00
--  

beforeAddDataRow事件,写如下代码

 

Dim cr As row = Tables("表A").current

If cr IsNot Nothing Then

    e.datatable.DataCols("第二列").RaiseDataColChanged(cr.datarow)

End If


--  作者:蓝蚂蚁
--  发布时间:2018/2/22 16:11:00
--  
非常完美,感谢!