ctGrid新特破，齐来研究........

luhao

序号还不好写
Grant 发表于 2009-11-5 22:36

在网上有个函数
'函数名：RsFillFlex2
'功能：用记录集填充表格
'创建日期：2007-8-22
'更新日期：2007-8-22
'作者：ggyy66
'注意：从第1列开始填充数据,第0列自动生成一个序号列
'由于多出一个序号列，所以表格的列数比记录集的字段数多1
但不知点应用rs As adodb.Recordset这个定义。网上没有例子可参考。

Public Function RsFillFlex2(strcaption As String, _
                            grd As MSFlexGrid, _
                            rs As adodb.Recordset, _
                            Optional alignFlag As Integer = 0, _
                            Optional showZeroFlag As Integer = 0, _
                            Optional Rows_Fixed As Integer = 1, _
                            Optional TableHead As Integer = 1) As Boolean
    '本函数特别要求，对于含的小数点的数值型数据，要根据数据表中的结构显示小数点个数
    '功能：将记录添充到表格中
    '参数一：表头格式
    '参数二：表格控件名称
    '参数三：记录集
    '参数四：表示是否指定"列对齐方式"，为1根据记录集的字段类型来设置，为0根据表格的formatstring设置
    '参数五：是否显示数字0,为0不显示，为1要显示
    '参数六：固定行数，默认为1
    '参数七：表头所占的行数，默认为1 (该参数有何意义？)
    '好象记录集必须是客户端游标才行，服务器端游标记录数不好取

sagemeyou

不太明白。支持下

Grant

在网上有个函数
但不知点应用rs As adodb.Recordset这个定义。网上没有例子可参考



luhao 发表于 2009-11-6 06:41

这个不是很好理解吗?
rs其实就是你打开后的记录集
记录集打开后不要关闭

然后直接由函数调用即可

luhao

这个不是很好理解吗?
rs其实就是你打开后的记录集
记录集打开后不要关闭

然后直接由函数调用即可
Grant 发表于 2009-11-6 23:16

我试了：Call RsFillFlex2("MSFlexGrid例子",MSFlexGrid1,数据表，1，1，1，1)还是不行。
Call 之前rs要重新定义吗？能否提供一个例子学习。谢

sagemeyou

看看。

luhao

ctGrid实现主从关系

Grant

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Set conn = CurrentProject.Connection
    strSQL = "select * from  表1"
    rs.Open strSQL, conn, 1, 3

Call RsFillFlex2("MSFlexGrid例子", MSFlexGrid1, rs, 1, 1, 1, 1)

记录集打开后不要关闭

Grant

并不是直接写表函数就会直接帮你打开表,你误解了函数

luhao

并不是直接写表函数就会直接帮你打开表,你误解了函数
Grant 发表于 2009-11-9 01:05

谢谢Grant版主，

luhao

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Set conn = CurrentProject.Connection
    strSQL = "select * from  表1"
    rs.Open strSQL, conn, 1, 3
...
Grant 发表于 2009-11-9 01:04

还是有问题呀，老大..