以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  已发布项目日期不能输入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=34577)

--  作者：sxqq123 --  发布时间：2013/6/9 16:07:00 --  已发布项目日期不能输入 此主题相关图片如下：11.jpg 此主题相关图片如下：qq图片20130609160152.jpg 已发布项目日期不能输入，请教

--  作者：Bin --  发布时间：2013/6/9 16:08:00 --   例子发出来吧,你这个提示看起来和能不能输入日期没关系.

--  作者：sxqq123 --  发布时间：2013/6/9 16:27:00 --   是一个项目中有的表不能输入日期，有的表还能正常输入，可能原因是什么？指导我自己检查一下

--  作者：Bin --  发布时间：2013/6/9 16:28:00 --   上个例子分析一下,才知道.现在没看到东西.凭空猜测不好说.

--  作者：XYT --  发布时间：2013/6/9 16:29:00 --   第一有没有锁定列或表，第二你是否设置不允许直接输入

--  作者：sxqq123 --  发布时间：2013/6/9 16:30:00 --   我如何能做出不能输入日期的例子，将项目传上来？

--  作者：XYT --  发布时间：2013/6/9 16:34:00 --   你找到你不能输入的日期的地方，把其他不相干的都删了，就是例子了

--  作者：sxqq123 --  发布时间：2013/6/9 16:37:00 --   此主题相关图片如下：qq图片20130609163622.jpg 重新启动过程中出现这个，请教是什么原因？

--  作者：Bin --  发布时间：2013/6/9 16:40:00 --   你的代码有问题.用非法的值来计算.无法正常得出日期格式.

--  作者：sxqq123 --  发布时间：2013/6/9 16:40:00 --   Dim dt As Date = e.DataRow("日期") If dt.Day < 26 Then     dt = dt.AddMonths(-1) End If Dim dt1 As Date = New Date(dt.Year,dt.Month ,26) Dim dt2 As Date = dt1.AddMonths(1).AddDays(-1) If e.DataCol.name = "日期" Then     If e.DataRow.IsNull("日期") = False         Dim Filter As String         Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"         Tables("原料入库").Filter = Filter     End If End If