以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请教合并字符串代码(已解决)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12640)

--  作者:yyzlxc
--  发布时间:2011/9/10 10:09:00
--  [求助]请教合并字符串代码(已解决)

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

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目175.table

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

--  作者:e-png
--  发布时间:2011/9/10 11:41:00
--  

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

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


--  作者:czy
--  发布时间: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
--  发布时间:2011/9/10 12:03:00
--  
谢谢e_png和czy两位老师的指教,已达到预定效果,为使代码统一规范,选用了czy老师的代码,在这里再次表示衷心地感谢!!
--  作者:e-png
--  发布时间:2011/9/10 12:46:00
--  

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