以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  编号固定位数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62558)
--  作者：yuyu060712
--  发布时间：2015/1/4 15:39:00
--  编号固定位数

If e.DataCol.name="编号" Then
   If e.DataRow.isnull("编号")=False Then
        Dim s As String = e.DataRow("探伤编号")
       If val(s) < 99999 AndAlso s.IndexOf("-") <0  Then
           e.DataRow("探伤编号") = Date.today.year - 2000 & "-" & e.DataRow("编号")
       End If
   End If
End If

老师我的编号列是整数列，探伤编号是文本列现在我在编号列输入1可以变成0001，探伤编号列显示为15-1，如果探伤编号要为15-0001这个代码要怎么写？
--  作者：有点甜
--  发布时间：2015/1/4 15:46:00
--  
Format(e.DataRow("编号"), "0000")