主题：模拟全选

打卡统计_DropBox1_KeyDown

Dim drp As WinForm.DropDownBox = e.sender

If drp.DroppedDown Then '如果下拉窗口已经打开

    Dim tbl As Table = Tables("窗口1_Table1")

    If e.KeyCode = Keys.Up Then '如果按下的是上箭头按键

        tbl.Position = tbl.Position - 1 '向上移动一行

        e.Cancel = True

    ElseIf e.KeyCode = Keys.Down Then '如果按下的是下箭头按键

        tbl.Position = tbl.Position + 1 '向下移动一行

        e.Cancel = True

    End If

End If

打卡统计_DropBox1_KeyPress

Dim drp As WinForm.DropDownBox = e.Sender

If drp.DroppedDown = False '如果下拉窗口没有打开

    drp.OpenDropDown() '打开下拉窗口

End If

打卡统计_DropBox1_TextChanged

Dim drp As WinForm.DropDownBox = e.sender

Dim cbx1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim s As String = cbx1.Value

If drp.DroppedDown Then '如果下拉窗口已经打开

    Dim tbl As Table = Tables("窗口1_Table1")

    If s = "" Then

        If drp.Text = "" Then '如果内容为空

            tbl.Filter = "" '显示所有客户

        Else '否则根据输入内容进行模糊筛选

            Dim txt As String = "'%" & drp.Text & "%'"

            tbl.Filter = "Name Like " & txt

        End If

    Else

        If drp.Text = "" Then '如果内容为空

            tbl.Filter = "[DEPTNAME] = '" & s & "'" '显示所有客户

        Else '否则根据输入内容进行模糊筛选

            Dim txt As String = "'%" & drp.Text & "%'"

            tbl.Filter = "Name Like " & txt & "and [DEPTNAME] = '" & s & "'"

        End If

    End If

End If

打卡统计_DropBox1_Validating

Dim drp As WinForm.DropDownBox = e.sender

If drp.DroppedDown Then '如果下拉窗口已经打开

    drp.CloseDropdown(False) '关闭下拉窗口

End If