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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 前缀重复加的问题

共有2794人关注过本帖树形打印复制链接主题：前缀重复加的问题

steven306

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

加好友

发短信

等级：婴狐帖子：8 积分：122 威望：0 精华：0 注册：2014/8/13 13:54:00

前缀重复加的问题 发帖心情

Post By：2014/8/22 14:55:00 [只看该作者]

我在表的AfterEdit事件中写入如下代码目的是实现输入字符后会自动在该字符前加上“XM”前缀，功能已实现，但存在问题是：每编辑一次该单元格就会加一次“XM”，如何做个判断解决该问题？

If e.Col.Name = "PreID" Then

e.Row("PreID") = "XM" & e.Row("PreID")

End If

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/8/22 14:58:00 [只看该作者]

If e.Col.Name = "PreID" Then

if e.Row("PreID").StartsWith("XM")=false then

e.Row("PreID") = "XM" & e.Row("PreID")

end if

End If

steven306

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

加好友

发短信

等级：婴狐帖子：8 积分：122 威望：0 精华：0 注册：2014/8/13 13:54:00

Post By：2014/8/22 15:15:00 [只看该作者]

问题解决，谢谢。追加一问题：上边的代码生成的Preid的值为：XM1737,而我只想把除XM外的1737做为查找关键字，如何改？

Dim dr As DataRow

dr = DataTables("Project").SQLFind("PNumber = '" & e.DataRow("Preid") & "'" )

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/8/22 15:23:00 [只看该作者]

dr = DataTables("Project").SQLFind("PNumber = '" & e.DataRow("Preid").Substring(2,e.DataRow("Preid").lenght-2) & "'" )

steven306

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

加好友

发短信

等级：婴狐帖子：8 积分：122 威望：0 精华：0 注册：2014/8/13 13:54:00

Post By：2014/8/22 15:36:00 [只看该作者]

上面的代码我是放到datacolchanged中的，他提示未找到类型“String”的公共成员“lenght”。

steven306

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

加好友

发短信

等级：婴狐帖子：8 积分：122 威望：0 精华：0 注册：2014/8/13 13:54:00

Post By：2014/8/22 15:37:00 [只看该作者]

preid字段为字符型字段

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/8/22 15:39:00 [只看该作者]

笔误length

steven306

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

加好友

发短信

等级：婴狐帖子：8 积分：122 威望：0 精华：0 注册：2014/8/13 13:54:00

Post By：2014/8/22 15:47:00 [只看该作者]

OK，问题解决。感谢BIN老师，祝您周末愉快。

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

主题：前缀重复加的问题