以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  单元格怎样去掉最后一位数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31751)
--  作者：吴
--  发布时间：2013/4/19 19:21:00
--  单元格怎样去掉最后一位数
单元格怎样去掉最后一位数 比如：9999，去掉最后一位数为999
--  作者：程兴刚
--  发布时间：2013/4/19 19:36:00
--  
left("9999",3)
--  作者：lsy
--  发布时间：2013/4/20 8:34:00
--  

Dim s As String = CStr(e.Row(e.Col))
If CStr(e.Table.Value).Length > 1 Then
    e.Table.Value = Left(s,s.Length - 1)
End If

 

 

虽然是数字，列的数据类型，可能是数字型，也可能是字符型。

[此贴子已经被作者于2013-4-20 8:41:27编辑过]