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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请教合并字符串代码（已解决）

共有9886人关注过本帖树形打印复制链接主题：[求助]请教合并字符串代码（已解决）

yyzlxc

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

加好友

发短信

等级：七尾狐帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00

[求助]请教合并字符串代码（已解决） 发帖心情

Post By：2011/9/10 10:09:00 [只看该作者]

请教：将设备编号列的前两位与同行设备名称列的值合并，填入名称列中，此代码应该如何写，请各位老师指教。谢谢！！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目175.table

[此贴子已经被作者于2011-9-10 12:03:37编辑过]

e-png

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

加好友

发短信

等级：七尾狐帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00

Post By：2011/9/10 11:41:00 [只看该作者]

dim s as string = left(currenttable.current("设备编号"),2) & currenttable.current("设备名称")

currenttable.current("设备名称") = s

czy

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

加好友

发短信

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

Post By：2011/9/10 11:47:00 [只看该作者]

    Case "设备编号","设备名称"
        If e.DataRow.IsNull("设备编号") = False Then
            Dim Name As String = e.DataRow("设备编号")
            e.DataRow("名称") = Name.SubString(0,2) & e.DataRow("设备名称")
        End If

yyzlxc

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

加好友

发短信

等级：七尾狐帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2011/9/10 12:03:00 [只看该作者]

谢谢e_png和czy两位老师的指教，已达到预定效果，为使代码统一规范，选用了czy老师的代码，在这里再次表示衷心地感谢！！

e-png

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

加好友

发短信

等级：七尾狐帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00

Post By：2011/9/10 12:46:00 [只看该作者]

其实代码无所谓统一规范，看你在哪运用她了，如果是在按钮中用，看看又会怎样呢？

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

主题：[求助]请教合并字符串代码（已解决）