专家坐堂-自动输入日期问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动输入日期问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110345)

--  作者：edisontsui
--  发布时间：2017/12/1 11:03:00
--  自动输入日期问题

下面这段代码，到了12月份的今天，就无法自动输入日期列了，请问代码错在哪里？谢谢！

If e.DataCol.Name = "票号"

    If e.DataRow("票号") Is Nothing

    Else

        Dim dr As DataRow = e.DataRow

        If e.DataRow("票号").Length = 10

            e.DataRow("票号") = "0" & e.DataRow("票号")

        End If

        Dim da As String

        Dim d1 As Date = Date.today

        If d1.Month = 12

            If dr("票号").StartsWith("01")

                da = d1.year + 1 & "-" & dr("票号").Substring( 0, 2) & "-" & dr("票号").Substring( 2, 2)

            End If

        Else

            da = d1.year & "-" & dr("票号").Substring( 0, 2) & "-" & dr("票号").Substring( 2, 2)

            dr("日期") = Cdate(da)

        End If

      dr("工位") = dr("票号").substring(4,3)

    End If

End If

--  作者：有点甜
--  发布时间：2017/12/1 11:46:00
--

试试改成

        If d1.Month = 12

            If dr("票号").StartsWith("01")

                da = d1.year + 1 & "-" & dr("票号").Substring( 0, 2) & "-" & dr("票号").Substring( 2, 2)

msgbox(da)

dr("日期") = Cdate(da)

            End If

        Else

            da = d1.year & "-" & dr("票号").Substring( 0, 2) & "-" & dr("票号").Substring( 2, 2)

            dr("日期") = Cdate(da)

        End If

--  作者：edisontsui
--  发布时间：2017/12/1 12:23:00
--
还是不行，日期列还是不能自动输入。

--  作者：有点蓝
--  发布时间：2017/12/1 14:51:00
--
dr("票号")存储的是什么数据？

--  作者：有点甜
--  发布时间：2017/12/1 15:09:00
--
       If d1.Month = 12
            da = d1.year + 1 & "-" & dr("票号").Substring( 0, 2) & "-" & dr("票号").Substring( 2, 2)

msgbox(da)

dr("日期") = Cdate(da)

        Else

            da = d1.year & "-" & dr("票号").Substring( 0, 2) & "-" & dr("票号").Substring( 2, 2)

            dr("日期") = Cdate(da)

        End If

--  作者：edisontsui
--  发布时间：2017/12/1 15:57:00
--
我另外找到原因了，下述代码就可以：

If d1.Month = 12
If dr("票号").StartsWith("01")
da = d1.year + 1 & "-" & dr("票号").Substring( 0, 2) & "-" & dr("票号").Substring( 2, 2)
dr("日期") = Cdate(da)
Else
da = d1.year & "-" & dr("票号").Substring( 0, 2) & "-" & dr("票号").Substring( 2, 2)
dr("日期") = Cdate(da)
End If
Else
da = d1.year & "-" & dr("票号").Substring( 0, 2) & "-" & dr("票号").Substring( 2, 2)
dr("日期") = Cdate(da)
End If