以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何在一个日期列只显示月-日,而不是年-月-日的格式?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45323)
--  作者：fubblyc
--  发布时间：2014/1/22 10:48:00
--  如何在一个日期列只显示月-日,而不是年-月-日的格式?
如何在一个日期列只显示月-日,而不是年-月-日的格式?
--  作者：Bin
--  发布时间：2014/1/22 10:49:00
--  
在DrawCell事件

if e.col.name="日期列名" then
     e.text=e.row("日期列名").month & "-" & e.row("日期列名").day
end if
--  作者：fubblyc
--  发布时间：2014/3/11 11:50:00
--  
Bin老师，我发现用这个代码：

if e.col.name="日期列名" then
     e.text=e.row("日期列名").month & "-" & e.row("日期列名").day
end if

会出现这样的问题：

比如2014-01-01  会变成1-1

但是我想实现成  01-01  有没有办法呢。。。我搞半天没弄出来。。。
--  作者：狐狸爸爸
--  发布时间：2014/3/11 11:51:00
--  
if e.col.name="日期列名" andalso e.text > "" then
     e.text= Format(e.row("日期列名"),"MM-dd")
end if
--  作者：Bin
--  发布时间：2014/3/11 11:52:00
--  
if e.col.name="日期列名" then
     e.text=format(e.row("日期列名"),"MM-dd")
end if
--  作者：fubblyc
--  发布时间：2014/3/11 12:24:00
--  
试了几次，终于好了，原来：

if e.col.name="日期列名" then
     e.text=format(e.row("日期列名"),"MM-dd")   还不能写成是 mm-dd  不然月份就没有显示了。
end if

看了format的帮助，知道了他们的不同。

谢谢Bin老师、狐爸！
--  作者：fubblyc
--  发布时间：2014/3/11 20:41:00
--  
哎，我想实现像狐爸这样：

if e.col.name="日期列名" andalso e.text > "" then     （不是空的才转换，空的不转换）
     e.text= Format(e.row("日期列名"),"MM-dd")
end if
我的【录音内容】列： e.DataRow("录音内容") =  e.DataRow("拨打时间") & "_" &  e.DataRow("手机号码") & ".wmv"
想实现：拨打时间、手机号码不是空的时候才生效，空的时候不生效。

写了如下代码：
If e.DataCol.name = "拨打时间" AndAlso e.DataRow.IsNull("拨打时间") = False AndAlso e.DataCol.name="手机号码" AndAlso e.DataRow.IsNull("手机号码") = False Then
     e.DataRow("录音内容") =  e.DataRow("拨打时间") & "_" &  e.DataRow("手机号码") & ".wmv"
End If

却不能实现。。。
--  作者：lsy
--  发布时间：2014/3/11 20:48:00
--  
DrawCell事件，没有DataCol。
--  作者：fubblyc
--  发布时间：2014/3/11 20:50:00
--  
哦，lsy老师，这不是DrawCell事件，是Datacolchanged 事件。所以我才没有用 e.text 方法的。
[此贴子已经被作者于2014-3-11 20:50:46编辑过]
--  作者：有点酸
--  发布时间：2014/3/11 20:57:00
--  
If e.DataCol.name = "拨打时间" OrElse e.DataCol.name="手机号码"  then  ‘如果是拨打时间或手机号码中的一列
     If  e.DataRow.IsNull("拨打时间") = False AndAlso  e.DataRow.IsNull("手机号码") = False Then \'拨打时间和手机号码均不为空
         e.DataRow("录音内容") =  e.DataRow("拨打时间") & "_" &  e.DataRow("手机号码") & ".wmv"
     End If
end if
 
明白什么时候用或，什么时候用与：