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

不知道是什么问题，按照文档写的代码，请大神教教。看错误提示应该指的是下拉列表的dropbox类型不能接受textbox类型的数据，我是按照“自定义录入界面之四”来开发的。
此主题相关图片如下：111.jpg


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

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

 

 

以上便是keypress的代码内容，然后那个Dropbox类型好像改不了吧，我是要通过下拉窗口实现调用table功能，怎么改？

我用的就是Dropbox控件呀，不明白你指的是什么意思？
此主题相关图片如下：333.jpg

keypress的代码是参照参考文档写的，怎么会有问题呢？

我现在用的是外部数据源（数据库）哦，发给你的话你也可以看么？

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

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

下拉窗口的keypress没有写代码

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


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

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

另外，有没有可能是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

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

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

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

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