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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表事件

共有5374人关注过本帖树形打印复制链接主题：表事件

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/11 1:08:00 [显示全部帖子]

foxtable 报什么错？你要返回怎样的报错提示？

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/11 9:04:00 [显示全部帖子]

if Forms.Contains(Name) = False then

messagebox.show("No window available")

return

end if

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/19 14:44:00 [显示全部帖子]

改代码，之前回答过你了啊，15楼。

Dim d As Date = e.Form.Controls("Calendar1").value.Date

Tables("Timing").Filter ="TimingStarttime >= #" & d & "# and TimingStarttime < #" & d.AddDays(1) & "#"
Tables("Productionlog").Filter = "Startlinerecording >= '" & Format(d, "yyyy-MM-dd HH:mm") & " 0000" & "' and Startlinerecording < '" & Format(d.AddDays(0), "yyyy-MM-dd") & "00:00 0000" & "'"
Dim drs,drs2,drs3,drs4,drsMid,Timedrs,drsHSE,drsCrew,drsProduction As List(Of DataRow)
drs=DataTables("Timing").Select("TimingStarttime >= #" & d & "# and TimingStarttime < #" & d.AddDays(1) & "#" )
drs2=DataTables("Productionlog").Select("Startlinerecording >= '" & Format(d, "yyyy-MM-dd HH:mm") & " 0000" & "' and Startlinerecording < '" & Format(d.AddDays(0), "yyyy-MM-dd") & "00:00 0000" & "'")

messagebox.show(drs.count & " ," & drs2.count)

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/1 8:44:00 [显示全部帖子]

你逻辑有问题，没看懂你的逻辑。

单纯这两个日期可以这样写，但是如果是别的日期，规则又是什么？

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/1 9:29:00 [显示全部帖子]

Dim d As Date = "2014-09-14"
Dim drs As List(Of DataRow) = DataTables("表A").Select("date = #" & d & "#")
For Each dr As DataRow In drs
    Dim fdr As DataRow = DataTables("表A").Find("date < #" & d & "# and seq = '" & dr("seq") & "'")
    If fdr Is Nothing Then
        DataTables("表A").deletefor("date >= #" & d & "# and seq = '" & dr("seq") & "'")
    End If
Next

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/1 10:33:00 [显示全部帖子]

Dim d As Date = "2014-09-14"
Dim drs As List(Of DataRow) = DataTables("表A").Select("date = #" & d & "#")
If drs.count = 0 Then
    DataTables("表A").deletefor("")
Else
    For Each dr As DataRow In drs
        Dim fdr As DataRow = DataTables("表A").Find("date < #" & d & "# and seq = '" & dr("seq") & "'")
        If fdr Is Nothing Then
            DataTables("表A").deletefor("date >= #" & d & "# and seq = '" & dr("seq") & "'")
        End If
    Next
End If

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/1 11:09:00 [显示全部帖子]

没看懂你的逻辑。请先理清自己要做什么？根据什么删除？

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/1 11:39:00 [显示全部帖子]

Dim d As Date = "2014-09-15"
Dim drs As List(Of DataRow) = DataTables("表A").Select("date = #" & d & "#")
If drs.count = 0 Then
    DataTables("表A").deletefor("")
Else
    For Each dr As DataRow In drs
        Dim fdr As DataRow = DataTables("表A").Find("date < #" & d & "# and seq = '" & dr("seq") & "'")
        If fdr Is Nothing Then
            DataTables("表A").deletefor("date >= #" & d & "# and seq = '" & dr("seq") & "'")
        End If
    Next
    DataTables("表A").deletefor("date < #" & d & "#")
End If

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

总数 19 上一页 1 2

主题：表事件