标题：谁能帮我转换一段代码？

1楼

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')

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

2楼

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

共2 条记录, 每页显示 10 条, 页签: [1]