[求助]窗口如何关联显示相关内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口如何关联显示相关内容

共有4830人关注过本帖树形打印复制链接主题：[求助]窗口如何关联显示相关内容

ouyangfenghuan

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

加好友

发短信

等级：童狐帖子：273 积分：2363 威望：0 精华：0 注册：2015/12/11 4:29:00

Post By：2016/8/13 18:05:00 [只看该作者]

还要加个判断是否存在"已结账"列,不会写

IF CurrentTable.Current.("已结账") IsNot Nothing Then

这样判断报错,求指点

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/14 12:46:00 [只看该作者]

IF CurrentTable.Cols.Contains("已结账") Then

End If

ouyangfenghuan

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

加好友

发短信

等级：童狐帖子：273 积分：2363 威望：0 精华：0 注册：2015/12/11 4:29:00

Post By：2016/8/15 12:06:00 [只看该作者]

谢谢老师!

还有个问题

dvubb 此主题相关图片如下：7.png

想做个按键一键检查当月所有人员每日在工资表中有无遗漏或重复,少则新建,多则删除多余行,

如何写

ouyangfenghuan

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

加好友

发短信

等级：童狐帖子：273 积分：2363 威望：0 精华：0 注册：2015/12/11 4:29:00

Post By：2016/8/15 12:18:00 [只看该作者]

If CurrentTable.Current IsNot Nothing Then

Dim dss As new List (of Date)

    For Each name As String In DataTables("员工资料表").GetValues("姓名")
        Dim dr As DataRow = DataTables("员工工资表").sqlFind( "姓名 = '" & name & "'")
        If dr Is Nothing Then
            dr = DataTables("表a").AddNew()
            dr("姓名") = name
            dr("日期") = ds

Else

If dr.Count > 1 Then

????

End If
Next
End If

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/8/15 14:54:00 [只看该作者]

If CurrentTable.Current IsNot Nothing Then

For Each name As String In DataTables("员工资料表").GetValues("姓名")

Dim drs As List(Of DataRow) = DataTables("员工工资表").Select( "姓名 = '" & name & "' and 日期=#" & CurrentTable.Current("日期") & "#")

If drs.Count = 0 Then

Dim dr As DataRow = DataTables("表a").AddNew()

dr("姓名") = name

dr("日期") = ds

ElseIf drs.Count > 1 Then

For i As Integer = 1 To drs.Count - 1

drs(i).Delete

End If

ouyangfenghuan

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

加好友

发短信

等级：童狐帖子：273 积分：2363 威望：0 精华：0 注册：2015/12/11 4:29:00

Post By：2016/8/15 18:04:00 [只看该作者]

谢谢老师

现在是需要一天检查一次

如何按月来检查每一天,每人都有一条记录

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/15 18:21:00 [只看该作者]

Dim y As Integer = 2016
Dim m As Integer = 8
For Each name As String In DataTables("员工资料表").GetValues("姓名")
    For i As Integer = 1 To Date.DaysInMonth(y, m)
        Dim d As Date = new Date(y, m, i)
        Dim drs As List(Of DataRow) = DataTables("员工工资表").Select( "姓名 = '" & name & "' and 日期=#" & d & "#")
        If drs.Count = 0 Then
            Dim dr As DataRow = DataTables("表a").AddNew()
            dr("姓名") = name
            dr("日期") = d
        ElseIf drs.Count > 1 Then
            For j As Integer = 1 To drs.Count - 1
                drs(j).Delete
            Next
        End If
    Next
Next