模仿自定义录入界面三

数据表录入时会有两个下拉窗打开,编辑顾客列打开窗口4,编辑零件编码列打开窗口5,

数据表事件代码

帮助文件例子是一个窗口,

数据表的KeyPressEdit:

If e.Col.Name = "客户ID" Then \'如果编辑的是客户ID列
    If e.Col.DroppedDown = False \'且下拉窗口没有打开
        e.Col.OpenDropDown() \'打开下拉窗口
    End If
End If

我的是两个窗口,

第一行代码改为:If e.Col.Name = "顾客" or e.Col.Name = "零件编码" Then

另外两个事件ChangeEdit,KeyDownEdit代码复杂,只会改相应参数,重复写,觉得比较笨,比如:

If e.Col.Name = "顾客" Then \'如果编辑的是客户 ID列
    If e.Col.DroppedDown Then \'如果下拉窗口已经打开
        Dim tbl As Table = Tables("窗口4_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
End If

If e.Col.Name = "零件编码" Then \'如果编辑的是客户 ID列
    If e.Col.DroppedDown Then \'如果下拉窗口已经打开
        Dim tbl As Table = Tables("窗口5_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
End If

请问各位大神,有简练的写法不?