如何编写“一键替换”按钮代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何编写“一键替换”按钮代码

共有7723人关注过本帖树形打印复制链接主题：如何编写“一键替换”按钮代码

aygp

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：693 积分：5206 威望：0 精华：0 注册：2011/3/15 12:34:00

如何编写“一键替换”按钮代码 发帖心情

Post By：2012/7/22 13:32:00 [只看该作者]

正在学习狐表，请教一个问题，如何编写“一键替换”按钮代码，快速的将附件表1中的“√”替换成所在列的列标题，如表2所示。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:礼仪技能水平考核统计.rar

czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：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

aygp

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：693 积分：5206 威望：0 精华：0 注册：2011/3/15 12:34:00

Post By：2012/7/22 13:56:00 [只看该作者]

谢了！不断学习，不断提高。

下一主题 >> << 上一主题

主题：如何编写“一键替换”按钮代码