以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  时间问题！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92259)
--  作者：FK7903
--  发布时间：2016/10/30 16:19:00
--  时间问题！
 日期   当月天数  
2016-02-02      
2013-05-23      
      
      

日期输入完，相应的当月天数也能出现值。

我在表属性中datacolchanged事件中编写的失败了20次求助！
--  作者：y2287958
--  发布时间：2016/10/30 16:23:00
--  

DaysInMonth
--  作者：FK7903
--  发布时间：2016/10/30 16:30:00
--  
前辈，求你帮我一个代码参考一下，教教我这初学者。
--  作者：y2287958
--  发布时间：2016/10/30 16:31:00
--  
上例子
--  作者：FK7903
--  发布时间：2016/10/30 16:51:00
--  
前辈，您在表中建日期列和当月天数列，在表属性中写一段代码。菜鸟求个代码学习一下。
--  作者：有点蓝
--  发布时间：2016/10/31 8:54:00
--  
最好贴上你有问题的代码，别人给改改，也好发现自己错在哪里

datacolchanged事件

Select Case e.DataCol.Name
    Case "日期"
        If e.DataRow.IsNull("日期") Then
            e.DataRow("天数") = Nothing
        Else
            Dim d As Date = e.DataRow("日期")
            e.DataRow("天数") = Date.DaysInMonth(d.Year,d.Month)
        End If
End Select
--  作者：FK7903
--  发布时间：2016/10/31 12:42:00
--  
谢谢前辈！