主题：新功能 下拉窗口 请教

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

点击浏览该文件:管理项目10.table

 

窗口中有命令

If e.KeyCode = Keys.Up Then
    Tables("表B").Position = Tables("表B").Position - 1
End If
If e.KeyCode = Keys.Down Then
    Tables("表B").Position = Tables("表B").Position + 1
End If
If e.KeyCode = Keys.Enter Then
    Dim dr2 As Row = Tables("表A").Current
    Dim dr1 As Row = Tables("表B").Current
    dr2("第一列") = dr1("编号")
    dr2("第二列") = dr1("名称")
    Tables("表A").Select(Tables("表A").Rows.Count - 1, 8)
End If

此主题相关图片如下：qq截图未命名.jpg

 

启动窗口命令设置在第一列。执行完命令后

dr2("第一列") = dr1("编号")
    dr2("第二列") = dr1("名称")

 

第一列怎么没有内容？第二列有。。。

 

 

 

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

点击浏览该文件:管理项目10.table