以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问，字符型的数字，怎么能通过补零，补齐位数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75356)
--  作者：fytea
--  发布时间：2015/10/6 14:11:00
--  请问，字符型的数字，怎么能通过补零，补齐位数

如12》》》0012

    13》    0013

     1》     0001
--  作者：lindong
--  发布时间：2015/10/6 14:53:00
--  
Format(12,"0000") 
--  作者：fytea
--  发布时间：2015/10/6 23:47:00
--  

 

请教lindong老师：

Select Case e.DataCol.name
Case "第一列"
If e.NewValue <>"" Then
e.NewValue = Format("第一列","0000")
End If
End Select

出来的值是：0000

错在什么地方？
--  作者：lindong
--  发布时间：2015/10/7 0:18:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:补零.table
看这样符不符合？
--  作者：lindong
--  发布时间：2015/10/7 0:51:00
--  
Select Case e.DataCol.name
Case "第一列"
Dim r As Row = Tables("表A").current
e.DataRow("第一列") = Format(val(r("第一列")),"0000")
End Select
--  作者：fytea
--  发布时间：2015/10/7 2:50:00
--  

这段代码，问题在哪里，每次都得“列重置”才能显示案卷级档号和文件级档号，且要点击当前单元格后重置

Select Case e.DataCol.name
    Case "案卷号"
        If e.newvalue > "" Then
            e.DataRow("案卷号")=format(Val(e.newValue),"0000")
        End If
Case "案卷级档号"
If e.newvalue Is Nothing Then
e.DataRow("案卷级档号") = e.DataRow("全宗号")&"-"& e.datarow("案卷目录号")&"-"& e.DataRow("案卷号")
End If
Case "文件级档号"
If e.NewValue Is Nothing Then
e.DataRow("文件级档号") = e.DataRow("全宗号")&"-"& e.datarow("案卷目录号")&"-"& e.DataRow("案卷号") &"-"& e.DataRow("页号")
End If

End Select

 

可能是放在DataColChanged事件中出的问题

[此贴子已经被作者于2015/10/7 3:09:40编辑过]
--  作者：大红袍
--  发布时间：2015/10/7 9:32:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=75369&skin=0