以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何简化重置列代码的写法(已解决)?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127958)

--  作者:lunengcheng
--  发布时间:2018/11/26 10:25:00
--  [求助]如何简化重置列代码的写法(已解决)?
各位老师前辈,请教一个问题,如果简化下面这段重置列代码的写法呢,一个表的多个字段需要重置,这样写能运行,但是有点累赘了,请教一下简化的写法,多谢了?

DataTables("面试管理_table1").Datacols("预约状态").RaiseDataColChanged
DataTables("面试管理_table1").Datacols("赴约状态").RaiseDataColChanged
DataTables("面试管理_table1").Datacols("预约通知").RaiseDataColChanged
DataTables("面试管理_table1").Datacols("预约次数").RaiseDataColChanged
DataTables("面试管理_table1").Datacols("面试结果告知").RaiseDataColChanged
DataTables("面试管理_table1").Datacols("面试进度").RaiseDataColChanged
DataTables("面试管理_table1").Datacols("面试评级").RaiseDataColChanged
DataTables("面试管理_table1").Datacols("试用建议").RaiseDataColChanged
DataTables("面试管理_table1").Datacols("面试次数").RaiseDataColChanged
[此贴子已经被作者于2018/11/26 12:13:54编辑过]

--  作者:菜鸟王中王
--  发布时间:2018/11/26 10:42:00
--  
用with
--  作者:有点甜
--  发布时间:2018/11/26 11:29:00
--  

比如

 

Dim cs() As String = {"第一列", "第二列"}
For Each c As String In cs
    DataTables("面试管理_table1").Datacols(c).RaiseDataColChanged
Next


--  作者:lunengcheng
--  发布时间:2018/11/26 12:14:00
--  
代码好用,多谢老师!