怎么增加一列数据列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么增加一列数据列

共有1978人关注过本帖树形打印复制链接主题：怎么增加一列数据列

lrh9537

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

加好友

发短信

等级：小狐帖子：380 积分：3154 威望：0 精华：0 注册：2012/11/16 12:19:00

怎么增加一列数据列 发帖心情

Post By：2024/2/19 8:41:00 [只看该作者]

假如表A有一列“证件号码”（有18位数的，有20位数的），怎么通过代码在其后面增加一列“身份证号”（获取证件号码的前18位）

有点蓝

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

加好友

发短信

等级：超级版主帖子：110727 积分：563555 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/2/19 9:07:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/1452.htm

datacolchanged事件

If e.DataCol.Name = "证件号码" Then
If e.DataRow.IsNull("证件号码") orelse len(e.DataRow("证件号码")) < 18 Then

        e.DataRow("身份证号") = Nothing
    Else
        e.DataRow("身份证号") = left(e.DataRow("证件号码"),18) 'http://www.foxtable.com/webhelp/topics/3264.htm
    End If
End If

lrh9537

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

加好友

发短信

等级：小狐帖子：380 积分：3154 威望：0 精华：0 注册：2012/11/16 12:19:00

Post By：2024/2/19 9:33:00 [只看该作者]

谢谢老师

某一列的内容发生变化后可以实现，比如我想通过按钮怎么来实现呢？

有点蓝

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

加好友

发短信

等级：超级版主帖子：110727 积分：563555 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/2/19 9:51:00 [只看该作者]

遍历所有行处理：http://www.foxtable.com/webhelp/topics/1438.htm

lrh9537

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

加好友

发短信

等级：小狐帖子：380 积分：3154 威望：0 精华：0 注册：2012/11/16 12:19:00

Post By：2024/2/19 10:21:00 [只看该作者]

Dim w As DataRow

For Each dr As DataRow In DataTables("表A").DataRows

w = DataTables("表A").Find("证件号码 = '" & dr("证件号码") & "'")

If w IsNot Nothing Then

dr("身份证号") = w("证件号码")

End If

DataTables("表A").Save

可以实现全部导过来，想提取前18位怎么修改代码（left(e.DataRow("证件号码"),18)）

有点蓝

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

加好友

发短信

等级：超级版主帖子：110727 积分：563555 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/2/19 10:31:00 [只看该作者]

For Each dr As DataRow In DataTables("表A").DataRows

if dr.isnull("证件号码") =false andalso dr("证件号码").length > 18

dr("身份证号") = left(dr("证件号码"),18)

end if

DataTables("表A").Save

[此贴子已经被作者于2024/2/19 10:31:02编辑过]

lrh9537

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

加好友

发短信

等级：小狐帖子：380 积分：3154 威望：0 精华：0 注册：2012/11/16 12:19:00

Post By：2024/2/19 10:36:00 [只看该作者]

dr("证件号码").length >= 18

可以了，谢谢老师

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

主题：怎么增加一列数据列