怎么样在Cell组件/插件中添加下拉框控件,今天要给大家分享的是关于如何在Cell组件/插件中添加下拉框控件的实例代码,有兴趣的朋友快来下载研究一下吧。
在Cell组件/插件中添加下拉框控件
引言
随着主从报表在客户实际需求中的增多,如何能简单的实现该功能,越来越多的受到客户的关注。在 Cell 组件/插件中可以使用下拉框控件非常容易地支持主从报表的需求。
正文
Cell 组件/插件提供了一组相关的方法,这些方法和事件的详细说明文档请参考帮助文件。
相关方法 说明
setDroplistcell 向单元格中添加下拉框控件
SetDroplistcell2 向单元格中添加下拉框控件,用于连接记录集
相关事件
DropCellselected 当选择单元格中的下拉框中的项目时触发该事件
在 Cell 组件/插件中添加下拉框控件分以下两个步骤:
1、 添加下拉框单元格在窗体生成的时候添加下拉框单元格:
[Visual Basic]
Private Sub Form_Load()
Cell1.SetDroplistCell 2, 1, 0, "股票信息", 1
End Sub
在 DropCellSelected事件中添加处理代码:
[Visual Basic]
Private Sub Cell1_DropCellSelected(ByVal col As Long, ByVal row As Long)
Cell1.InsertSheet 1, 1 '添加一页用于填写子表信息
Cell1.SetCols 7, 1
Cell1.SetRows 10, 1
Cell1.SetSheetLabel 1, "股票"
Cell1.SetCellString 1, 0, 1, "股票名称"
Cell1.SetCellString 2, 0, 1, "上收市"
Cell1.SetCellString 3, 0, 1, "升跌"
Cell1.SetCellString 4, 0, 1, "上成交"
Cell1.SetCellString 5, 0, 1, "10:10"
Cell1.SetCellString 6, 0, 1, "成交"
Cell1.SetCellString 1, 1, 1, "北京用友"
Cell1.SetCellDouble 2, 1, 1, 9.59
Cell1.SetCellDouble 3, 1, 1, -1.94
Cell1.SetCellDouble 4, 1, 1, 317000
Cell1.SetCellDouble 5, 1, 1, 9.7
Cell1.SetCellDouble 6, 1, 1, 45600
Cell1.SetCellString 1, 2, 1, "用友华表"
Cell1.SetCellDouble 2, 2, 1, 11.3
Cell1.SetCellDouble 3, 2, 1, 0.89
Cell1.SetCellDouble 4, 2, 1, 333200
Cell1.SetCellDouble 5, 2, 1, 11.21
Cell1.SetCellDouble 6, 2, 1, 20700
Cell1.SetCellString 1, 3, 1, "用友致远"
Cell1.SetCellDouble 2, 3, 1, 13.52
Cell1.SetCellDouble 3, 3, 1, -2.02
Cell1.SetCellDouble 4, 3, 1, 378500
Cell1.SetCellDouble 5, 3, 1, 13.68
Cell1.SetCellDouble 6, 3, 1, 26500
Cell1.SetCellString 1, 4, 1, "用友工程"
Cell1.SetCellDouble 2, 4, 1, 15.82
Cell1.SetCellDouble 3, 4, 1, -1.12
Cell1.SetCellDouble 4, 4, 1, 799600
Cell1.SetCellDouble 5, 4, 1, 15.81
Cell1.SetCellDouble 6, 4, 1, 69600
Cell1.SetCellString 1, 5, 1, "用友医院"
Cell1.SetCellDouble 2, 5, 1, 6.3
Cell1.SetCellDouble 3, 5, 1, -1.4
Cell1.SetCellDouble 4, 5, 1, 476000
Cell1.SetCellDouble 5, 5, 1, 6.43
Cell1.SetCellDouble 6, 5, 1, 195500
Cell1.SetCellString 1, 6, 1, "用友U8"
Cell1.SetCellDouble 2, 6, 1, 10.21
Cell1.SetCellDouble 3, 6, 1, -0.68
Cell1.SetCellDouble 4, 6, 1, 221300
Cell1.SetCellDouble 5, 6, 1, 10.26
Cell1.SetCellDouble 6, 6, 1, 21200
Cell1.SetCellString 1, 7, 1, "用友U9"
Cell1.SetCellDouble 2, 7, 1, 9.1
Cell1.SetCellDouble 3, 7, 1, -2.04
Cell1.SetCellDouble 4, 7, 1, 1014800
Cell1.SetCellDouble 5, 7, 1, 9.12
Cell1.SetCellDouble 6, 7, 1, 97000
Cell1.SetCellString 1, 8, 1, "用友NC"
Cell1.SetCellDouble 2, 8, 1, 8.98
Cell1.SetCellDouble 3, 8, 1, -2.07
Cell1.SetCellDouble 4, 8, 1, 757300
Cell1.SetCellDouble 5, 8, 1, 9.11
Cell1.SetCellDouble 6, 8, 1, 154400
Cell1.SetCellString 1, 9, 1, "用友小型"
Cell1.SetCellDouble 2, 9, 1, 27.5
Cell1.SetCellDouble 3, 9, 1, -0.57
Cell1.SetCellDouble 4, 9, 1, 1116200
Cell1.SetCellDouble 5, 9, 1, 27.6
Cell1.SetCellDouble 6, 9, 1, 338700
Cell1.RSDefCellSet "股票", Chr(34) & "" & Chr(34), "股票!A0:F9" ' 定义华表记录集
Cell1.SetCellString 1, 1, 0, "下拉窗口"
Cell1.SetDropwndCell 2, 1, 0, Cell1.RSGetSetIndex("股票"), 2, 0 '向单元格中添加下拉窗口控件
Cell1.SetCurSheet 0 '指定当前的表页
Cell1.SetSheetVisible 1, False '设置隐藏子表的信息
Cell1.ReDraw '重绘表格
End Sub
下载示例源码:http://www.wei2008.com/downinfo/22623.html