谁能帮我转换一段代码？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 谁能帮我转换一段代码？

共有13273人关注过本帖树形打印复制链接主题：谁能帮我转换一段代码？

yacity

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

加好友

发短信

等级：二尾狐帖子：532 积分：4020 威望：0 精华：0 注册：2011/6/18 12:41:00

谁能帮我转换一段代码？ 发帖心情

Post By：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

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

加好友

发短信

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

Post By：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

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

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