我打开一表后,一般是通过将recordset对象绑定到msflexgrid控件上,还是自己读取记录集上的数据,然后往MsFlexGrid控件上写,两种方法一般是用的哪种?
解决方案 »
- vb Collection 的问题,如何查找遍历Colleciton啊???
- VB AT GSM MSComm
- 一个Hook的问题
- datagrid的RowColChange事件(解决者送五毛钱)
- 郁闷啊!照着书编都有错,搞不懂~~~~~~~~~
- 菜鸟又发问了!!!子程序或函数未定义怎么办啊 !具体程序如下 小弟在线 望各位大哥拔刀相助
- VB通过串口控制epson TM-U220 打印示例,在线等待......
- API函数:SetWindowPos的最后一个参数都可以是什么值,我想让任务栏隐藏,同时让窗口满屏,应该怎么做,在线等待,马上给分
- form1全屏,屏蔽maxButton问题??
- 感谢 1come(白开水)的代码,送分 120之一(我只能给30)
- 请教各位高手,如何使其它程序中被设置为enable=false得控件激活?
- 求助文本文件的编码问题!
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=xxx;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic Set MSHFlexGrid.DataSource = Rs
效率最高
放一个Adodc控件,然后:
Dim str As String
str = "Select * From YourTable" '(YourTalbe=表名)
Adodc1.ConnectionString = DbStr '(连接字符串,公共变量)
Adodc1.RecordSource = str
Set MSHFlexGrid1.DataSource = Adodc1
Adodc1.Refresh
要求:将下面的数据填充表格,2004年背景红,2004年背景蓝,2004年背景黄,
select 名称,描述,数量,单价,日期 from 表 where Year(日期)='2002'
select 名称,描述,数量,单价,日期 from 表 where Year(日期)='2003'
select 名称,描述,数量,单价,日期 from 表 where Year(日期)='2004'
最后一格显示 :合计:数量*单价=总价 的值/ 字体红色要求2:将上面填充好的表格实行打印。
http://community.csdn.net/Expert/topic/3554/3554228.xml?temp=.1261103