[求助]提取字符代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]提取字符代码

共有3601人关注过本帖树形打印复制链接主题：[求助]提取字符代码

有点蓝

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

加好友

发短信

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

Post By：2019/8/27 10:37:00 [显示全部帖子]

tables("表A").current("B列") = tables("表A").current("A列").substring(0,2)

有点蓝

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

加好友

发短信

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

Post By：2019/8/27 16:49:00 [显示全部帖子]

代码改到datacolchanged事件处理：http://www.foxtable.com/webhelp/topics/0625.htm

有点蓝

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

加好友

发短信

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

Post By：2019/8/27 20:14:00 [显示全部帖子]

写了什么代码？贴出来

有点蓝

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

加好友

发短信

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

Post By：2019/8/29 14:32:00 [显示全部帖子]

放到datacolchanged事件就不能这样一句代码用了，请把帮助认真看几遍

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

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

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

有点蓝

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

加好友

发短信

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

Post By：2019/8/29 16:07:00 [显示全部帖子]

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "A列"
dr("B列") = dr("A列").substring(0,2)
End Select

有点蓝

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

加好友

发短信

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

Post By：2019/8/29 17:03:00 [显示全部帖子]

既然知道字符可能不足2个，那就判断一下咯http://www.foxtable.com/webhelp/topics/0230.htm

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "A列"

if dr.isnull("A列") = false andalso dr("A列").length > 2
dr("B列") = dr("A列").substring(0,2)

end if
End Select

有点蓝

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

加好友

发短信

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

Post By：2019/8/30 11:02:00 [显示全部帖子]

Dim dr As DataRow = e.DataRow

Select Case e.DataCol.Name

Case "A列"

If dr.isnull("A列") OrElse dr("A列").length <= 2

dr("B列") = dr("A列")

Else

dr("B列") = dr("A列").substring(0,2)

End If

End Select

有点蓝

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

加好友

发短信

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

Post By：2019/8/31 9:30:00 [显示全部帖子]

dr这个名称重复定义了，dim dr as datarow = e.datarow，放到第一行即可，其它地方不需要重复定义

有点蓝

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

加好友

发短信

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

Post By：2019/8/31 11:10:00 [显示全部帖子]

其它地方不要重复定义dr这个变量名称，改为其他名称，如dr2，dr3

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

主题：[求助]提取字符代码