- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何编写“一键替换”按钮代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21707)
-- 发布时间：2012/7/22 13:32:00
-- 如何编写“一键替换”按钮代码
正在学习狐表，请教一个问题，如何编写“一键替换”按钮代码，快速的将附件表1中的“√”替换成所在列的列标题，如表2所示。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:礼仪技能水平考核统计.rar |
-- 发布时间：2012/7/22 13:52:00
--
For Each dc As DataCol In DataTables("表A").DataCols
Select Case dc.Name
Case "第三列","第四列","第五列","第六列"
Dim drs As List(Of DataRow) = DataTables("表A").Select(dc.name & " = \'√\'")
For Each dr As DataRow In drs
dr(dc.name) = dc.Caption
Next
End Select
Next
-- 发布时间：2012/7/22 13:56:00
--
谢了！不断学习，不断提高。