S解除异常锁定_DropBox1_KeyDown

Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown Then \'如果下拉窗口已经打开
    Dim tbl As Table = Tables("S选择客户_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
    ElseIf e.KeyCode = Keys.Space Then \'如果按下的是下箭头按键
           Dim t As String = e.sender.value
           Dim ss As String
              If t = "" Then
                 ss = "select 客户编号,客户简称 from {托运客户} where 是否锁定 = \'否\' and 分公司 = \'"& Vars("分公司") &"\'"
              End If
            Tables("S选择客户_Table1").Fill(ss,"baox",True)
            Dim tg As String = "客户编号,80|客户简称,120"
            Functions.Execute("显示列",Tables("S选择客户_Table1"),tg)
    End If
End If

S解除异常锁定_DropBox1_KeyPress

Dim drp As WinForm.DropDownBox = e.Sender
If drp.DroppedDown = False \'如果下拉窗口没有打开
    drp.OpenDropDown() \'打开下拉窗口
End If

S解除异常锁定_DropBox1_TextChanged

Dim drp As WinForm.DropDownBox = e.sender
Dim s As String = drp.Text
   If drp.DroppedDown Then \'如果下拉窗口已经打开
       Dim n As Integer = s.length
       Dim ss1 As String = "select * from {托运客户} where LEFT(快捷键,"& n &") = \'"& s &"\' and 是否锁定 = \'否\' and 分公司 = \'"& Vars("分公司") &"\'"
       Tables("S选择客户_Table1").Fill(ss1,"baox",False)
       Dim tg As String = "客户编号,80|客户简称,120"
       Functions.Execute("显示列",Tables("S选择客户_Table1"),tg)
   End If

S解除异常锁定_DropBox1_Validating

Dim drp As WinForm.DropDownBox = e.Sender
If drp.DroppedDown = False \'如果下拉窗口没有打开
    drp.OpenDropDown() \'打开下拉窗口
End If