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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 已发布项目日期不能输入

共有5380人关注过本帖树形打印复制链接主题：已发布项目日期不能输入

sxqq123

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2307 威望：0 精华：0 注册：2012/11/14 11:25:00

已发布项目日期不能输入 发帖心情

Post By：2013/6/9 16:07:00 [显示全部帖子]

此主题相关图片如下：11.jpg

此主题相关图片如下：qq图片20130609160152.jpg

已发布项目日期不能输入，请教

sxqq123

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2307 威望：0 精华：0 注册：2012/11/14 11:25:00

Post By：2013/6/9 16:27:00 [显示全部帖子]

是一个项目中有的表不能输入日期，有的表还能正常输入，可能原因是什么？指导我自己检查一下

sxqq123

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2307 威望：0 精华：0 注册：2012/11/14 11:25:00

Post By：2013/6/9 16:30:00 [显示全部帖子]

我如何能做出不能输入日期的例子，将项目传上来？

sxqq123

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2307 威望：0 精华：0 注册：2012/11/14 11:25:00

Post By：2013/6/9 16:37:00 [显示全部帖子]

此主题相关图片如下：qq图片20130609163622.jpg

重新启动过程中出现这个，请教是什么原因？

sxqq123

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2307 威望：0 精华：0 注册：2012/11/14 11:25:00

Post By：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

sxqq123

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2307 威望：0 精华：0 注册：2012/11/14 11:25:00

Post By：2013/6/9 16:42:00 [显示全部帖子]

是顺序出错了吗？还是代码本身存在问题？请教

If e.DataCol.name = "日期" Then
If e.DataRow.IsNull("日期") = False

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)
        Dim Filter As String
        Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
        Tables("原料入库").Filter = Filter
    End If
End If

sxqq123

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2307 威望：0 精华：0 注册：2012/11/14 11:25:00

Post By：2013/6/9 17:06:00 [显示全部帖子]

是不是第二个IF后面少了Then，这样写代码可以吗？

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 Then
        Dim Filter As String
        Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
        Tables("原料入库").Filter = Filter
    End If
End If

sxqq123

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2307 威望：0 精华：0 注册：2012/11/14 11:25:00

Post By：2013/6/9 17:21:00 [显示全部帖子]

此主题相关图片如下：123.jpg

在新项目中试验，有没有Then，日期都可以正常输入呀

sxqq123

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2307 威望：0 精华：0 注册：2012/11/14 11:25:00

Post By：2013/6/9 17:28:00 [显示全部帖子]

在MainTableChanged中设置

Dim count As Short
Dim dr As DataRow

With DataTables("原料入库")
dr = .DataRows(.DataRows.count-1)
.DataCols("日期").RaiseDataColChanged(dr)
End With

与当前表的

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 Then
        Dim Filter As String
        Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
        Tables("原料入库").Filter = Filter
    End If
End If
是不是冲突了，请教

下一主题 >> << 上一主题

主题：已发布项目日期不能输入