以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  谁能帮我转换一段代码？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13541)
--  作者：yacity
--  发布时间：2011/10/16 10:08:00
--  谁能帮我转换一段代码？

 

Select Case e.DataCol.Name
           
    Case "chuhuodate"
        Dim dr As DataRow=e.DataRow
                   dr("chuhuodan2") =dr("_Identify")


End Select

 

其中 dr("chuhuodan2") =dr("_Identify")

想转换成 dr("chuhuodan2") =  \'XS\' + SubString(\'000000\', 1, 6 - Len(Convert([_Identify],\'System.String\'))) + Convert([_Identify], \'System.String\')

 

可是这样的格式不正确，谁能帮我转换一下代码呢？

 

 

 
--  作者：czy
--  发布时间：2011/10/16 11:58:00
--  

简单：

 

Select Case e.DataCol.Name
    Case "chuhuodate"
        Dim dr As DataRow = e.DataRow
        Dim s As String = dr("_Identify")
        dr("chuhuodan2") = "XS" & s.PadLeft(6,"0")
End Select