我用的是vb6.0。用以下代码显示信息
Dim s As String, i As Integer
Set adocn = New adodb.Connection
With adocn
.Provider = "OraOleDB.ORACLE"
End With
adocn.Open "Password=tiger; " _
& " User ID=scott;Data source=sa; " _
& " Persist Security Info=True"
Dim rst As New adodb.Recordset
Set rst = New adodb.Recordset
rst.CursorLocation = adUseClient
rst.Open "select * from employee", adocn, adOpenStatic, adLockOptimistic, adCmdText
Set DataGrid1.DataSource = rst
adocn.Close我确定rst已有检索信息,可是DATAGRID确不显示,请问大家可能是什么原因。
Dim s As String, i As Integer
Set adocn = New adodb.Connection
With adocn
.Provider = "OraOleDB.ORACLE"
End With
adocn.Open "Password=tiger; " _
& " User ID=scott;Data source=sa; " _
& " Persist Security Info=True"
Dim rst As New adodb.Recordset
Set rst = New adodb.Recordset
rst.CursorLocation = adUseClient
rst.Open "select * from employee", adocn, adOpenStatic, adLockOptimistic, adCmdText
Set DataGrid1.DataSource = rst
adocn.Close我确定rst已有检索信息,可是DATAGRID确不显示,请问大家可能是什么原因。
解决方案 »
- 有没有人用过DSF,如何引用DSF? Device Simulation Framework
- 在一本书上看到的例,请问retval=shell(Fname,1)的意思
- 请问这个网站跟老马同志有什么关系?
- webbrowser验证码问题 简单但是我不会
- 邮件收发(群发)
- VB编程代码窗口怎么支持鼠标滚轮啊?
- 请问硬盘的序列号在格式化或者重分区的情况下会改变吗?
- 对数据库表操作的问题,谢谢回答
- 金蝶K3的VB开发问题
- 想要实现类DataGrid的显示,但不用ADODC和DataGrid,有没有其他方法?有没有VB标准控件可以做到?
- 如何用VB实现实时曲线的绘制?急手问题,大家进来看看。
- 用vb程序实现汽车车速仪表功能,大家进来看看.
-------------------------------------------------------------------
关于Lgxgrid表格(报表)控件详细说明:http://lgxyslldw.512j.com
下载试用:http://lgxyslldw.512j.com/jszc/hf/MySoft/lgxgrid.rar
LgxGrid是一款功能强大的表格(报表)控件,使用这个控件,你可以轻轻松松地为你的应用程序创建各种表格用户界面,大大加快你的开发效率,更好地满足你的客户需求。无论是使用LgxGrid控件开发传统的Windows应用程序,还是开发基于B/S的Web应用程序(特别适用于开发类似于AJAX的无刷新的Web应用程序),都会给你带来意想不到的惊喜!Lgxgrid控件内含详尽的中文帮助说明,各种语言的例程,无论是初学者还是资深程序员,Lgxgrid控件都会让你得心应手!
Lgxgrid控件的新增功能
一、公式功能
Lgxgrid控件从6.5版本起,将支持公式。当在一个单元格内键入“=”时,所输入的字符串将作为公式进行处理。用SetFunc写入的字符串,也被作为公式进行处理(用SetFunc写入的字符串,前面不用带“=”)。Lgxgrid控件公式的特定函数:
1、grid(h,l)函数,h和l为行号和列号;或一组由“:”和界定的行号和列号的范围,如1:5,2:3表示第1至5行,第2至3列在lgxgrid控件中,公式中包含的grid(h,l)函数被识别为获得一个单元格的值或一组单元格的值的数组。如公式:“=grid(2,1)",表示此单元格的值将等于第2行,第1列的单元格的值,当第2行,第1列的值发生改,含有这个公式的单元格的值也随之改变。如果grid()函数的行号或列号前带有“$”符号,则表示这个行或列是绝对引用的,否则为相对引用。当相对引用的grid()函数被复制粘贴到别的单元格,那么行号或列号会被加上相对的偏移量,如果是绝对引用,则不会有偏移量。而公式“=grid(1:3,1)”则返回包含第1至3行第1列的单元格的值的数组。同样,如果行号和列号前不含“$”符号,则表示相对引用,否则为绝对引用。
2、 Sum(arr)函数,arr是一个数组。通常,这个数组由grid(h,l)函数返回。 Sum(arr)函数是对arr组中数值元素进行求和。例如“=sum(grid(1:5,2))”将得到第1至5行第2列单元格内数值元素的和,非数值元素将被忽略。
3、 Count(arr)函数,arr是一个数组。通常,这个数组由grid(h,l)函数返回。 Count(arr)返回arr数组中数值元素的个数。例如公式“=sum(grid(1:5,2))/ count(grid(1:5,2))”将返回第1至5行第2列中数值元素的平均值。
4、 FirstData(arr)函数,arr是一个数组。通常,这个数组由grid(h,l)函数返回。 FirstData(arr)函数返回arr数组中的第1个元素的值
5、 Ifx(arr,data,ReArr)函数,arr和ReArr都是数组,而且要求它们的大小相同,ReArr的元素和arr的元素一一对应,它们通常由grid函数生成。Data是一个数值。 Ifx(arr,data,ReArr)函数按比较条件返回一个数组,arr数组是比较数组,data是比较值,ReArr是待比较后对应返回值的数组。如果arr中的某一元素与data相等,则返回ReArr中与之相对应的值。满足条件的元素可能有多个,最后返回的是所有满足条件的值的数组。例如:“=Ifx(grid(1:10,1),"男",grid(1:10,2)”
6、 其他lgxgrid 控件支持的运算符和直接支持的函数。
Lgxgrid支持的运算符有:
“+、-、*、/、^、(、)”
Lgxgrid还直接支持下列数学函数:
sin(x)、cos(x)、 e(x)、 pi (x)、abs(x)、 atan(x)、 cosh(x)、 tanh(x)、 sinh(x)、 exp(x)、 mod(x,y)、 log(a,x)、 ln(x)、 lg(x)、 roundx(x,n)
7、 lgxgrid控件中与公式有关的新增方法、属性和事件(详细内容请参考该方法、属性和事件的说明):
CopyFunc、PlasterFunc、GetFunc 、SetFunc、ReturnData(属性)、OutFunctionAdd(事件)二、处理大批量数据的功能
lgxgrid控件6.5与以前版本相比,数据的处理能力大大增加。支持处理大批量的数据的方法主要有(详细内容请参考该方法的说明):
1、 RecordsetToGird方法:从数据库直接加载大量数据到表格(超过30万行的数据,建议分段)
2、 SetdRowsx方法:设置大量的行数
3、 RowsAdd方法:在原有的基础上添加大量的数据行数
4、 SetDataAll方法:用于通过循环大量地逐个设置单元格的值 三、改进DataToExel方法改进后的DataToExel,将可以在加载数据到Excel的同时,根据lgxgrid控件的格式设置Excel电子表格的格,以前的版本不支持格式设置。
四、改进了一些打印的BUG,改进SetPrintInfo打印设置方法
lgxgrid控件6.5,改进了一些打印的BUG,改进SetPrintInfo打印设置方法,使打印支持页码和总页数的打印,支持每页打印本页小计(可选)