就像在"我的电脑"上点右键->搜索->跟搜索结果栏里面的控件一样.
以前用过,现在忘了。
以前用过,现在忘了。
解决方案 »
- 怎么取得combox 的值, itemdata?
- 如何遍历当前所有的窗口及子窗口,并打印其中的文本到listbox1中。
- VB6/DataGrid/列的合计
- 请问谁有ActiveReports Pro 2.0的教程或资料,也请高手们介绍一下使用心得!
- 如何才能使Dabagrid控件能够刷新?
- 大家帮个忙呀一个文本框问题
- 实在不能忍受csdn的蜗牛速度,大家都来up一下,呼吁csdn换个服务器如何????
- 四舍五入问题请教高手!!!!
- VB 如何得到光标坐标 如何移动鼠标 ,如何模拟鼠标左键单击
- 菜鸟问题!在VB6里面怎么才能判断当前是什么操作系统啊?
- ON line wait : about Round() function
- datagrid的问题?
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "代码", ListView1.Width / 2
ListView1.ColumnHeaders.Add , , "真实值", ListView1.Width / 2
Dim CN As New ADODB.Connection
Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=Report;User Id=sa;Password=sa;"
CN.Open Rs.CursorLocation = adUseClient
Rs.Open "select * from table1", CN, adOpenDynamic, adLockBatchOptimistic
Rs.MoveFirst
Do While Not Rs.EOF
Combo1.AddItem Rs.Fields
Set Item = ListView1.ListItems.Add(, , Trim(Rs.Fields("lno")))
Item.ListSubItems.Add , , Trim(Rs.Fields("lname"))
Rs.MoveNext
Loop
Rs.Close
CN.Close