主题：[求助]按照操作文档写的代码，竟然报错

预算使用申请窗口的keypress代码：

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

下拉窗口的keypress没有写代码

此主题相关图片如下：111.jpg


此主题相关图片如下：222.jpg

是控件【预算使用申请】的keypress事件代码，不是窗口的keypress事件。如果不会找就上传项目

我实在是找不到了，麻烦老师帮我看看，谢谢。

另外，有没有可能是datacolchanged事件代码引发的呢，我把代码也贴出来给老师看看。

With Tables("预算使用申请表").Current
    If .IsNull("预算编号") = False Then
        Dim r As Row = Tables("预算使用申请表").Current
        Dim dr As DataRow
        dr = DataTables("基础预算表").Find("[预算编号] = '" & Tables("预算使用申请表").Current("预算编号") & "'")
        r("预算项目名称") = dr("项目名称")
        r("预算金额") = dr("预算金额")
    End If
End With

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:财务预算管理_2.rar

你出错的项目，发上来测试。

已经发了呢，就上面一条帖子，是开发版的，然后数据源是外部，不知道怎么转本地。

此主题相关图片如下：qq截图20190414124514.jpg

老师，这里的代码有问题吗？我应该是按照教程写的。

keypress 的代码是

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

keydown的代码是

Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown Then '如果下拉窗口已经打开
    Dim tbl As Table = Tables("基础预算下拉窗口_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

麻烦老师帮我看看，谢谢。

删除里面的代码。

 

如果要写，请写到dropdownbox控件去，不是写到窗口的事件。

老师，在下拉窗口中我想过滤部分数据（对部分数据进行加密），把一部分数据屏蔽掉，仅对指定用户开放查看选择这部分保密数据的权限，要怎么实现呢，在哪个地方写代码好一些，对窗口的逻辑不是特别熟悉。