打卡统计_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