用Grid控件DataGrid
MsFlexGrid
MshFlexGrid
....
MsFlexGrid
MshFlexGrid
....
解决方案 »
- 求教高手,怪异问题,为什么FindWindowEx得到了错误的句柄值?
- VBA 标准输出流Wscrpt.write
- 实时错误 '-2147417848' (80010108) :对象'Sort'的方法 'IMSHFlexGrid' 失败
- 在一个窗体中定义的dim变量与private变量有区别吗?区别在何处?
- Toolbar可以做下拉菜单吗?如果可以的话,怎么做?
- 不是Unix高手,别来!!!急急急急急急急急急……
- 进制转换的问题在于(高分求解!!!)
- vb6有什么代码生成器吗?
- 怎么知道系统空闲了多少时间?
- 如何在程序中表示CTRL+Z?
- 今天郁闷啊,VB数据库问题,在线等待
- 请问各位高手,能写一套字符串加密的函数吗??急
先确定 数据所需的 行和列数.
在用 .TextArray 填加数据
With MSHFlexGrid
.Rows = xxx
.Cols = xxx
'//从 数据集 读如数据并填充
Do Until Rs.Eof
For I =0 To (.Rows-1)
For J=0 To (.Cols -1)
.TextArray(faIndex(I,J)) = Rs.Fields("Data").Value
Next
Next
Loop
End with关于 faIndex 函数, MSDN 上已有.
-------------------------------------------------------------------
下面的代码给你参考一下:
m1 是个 Grid 控件。Function Getpagedate(ByVal TSQL As String, ByVal pagenumber As Integer, ByVal size As Integer) As Long
Screen.MousePointer = 11
Dim x As IntegerIf rs1.State = 1 Then rs1.Close
rs1.CursorLocation = adUseClient
rs1.Open TSQL, conn1, adOpenForwardOnly, adLockReadOnly
If rs1.EOF Then
mg1.Rows = 1
mg1.Rows = mg1.Rows + 1
mg1.FixedRows = 1
Label2(4).Caption = "Record Count:" & "0" & " Page Count:" & "0"
Screen.MousePointer = 0
Exit Function
End Ifmg1.Rows = 1
mg1.Cols = rs1.Fields.Count
rs1.PageSize = size
If pagenumber > rs1.PageCount Then
txtpn = 0
pagenumber = 1
ElseIf pagenumber <= 0 Then
txtpn = rs1.PageCount + 1
pagenumber = rs1.PageCount
End If
rs1.AbsolutePage = pagenumber
txtpn.Text = rs1.AbsolutePage
mg1.Visible = False
With mg1
Do While Not rs1.EOF And rs1.AbsolutePage = pagenumber
.Rows = .Rows + 1
.FixedRows = 1
For x = 0 To rs1.Fields.Count - 1
.TextMatrix(.Rows - 1, x) = IIf(IsNull(rs1.Fields(x).value), "", rs1.Fields(x).value)
If x = 4 Or x = 3 Then
.TextMatrix(.Rows - 1, x) = Format(.TextMatrix(.Rows - 1, x), "Fixed")
If Val(.TextMatrix(.Rows - 1, x)) = 0 Then .TextMatrix(.Rows - 1, x) = ""
.ROW = .Rows - 1: .COL = x
If Val(.TextMatrix(.Rows - 1, x)) < 0 Then .CellForeColor = vbRed Else .CellForeColor = vbBlue
End If
Next
rs1.MoveNext
Loop
Label2(4).Caption = "Record Count:" & CStr(rs1.RecordCount) & " Page Count:" & rs1.PageCount
Getpagedate = rs1.RecordCount
rs1.Close
Screen.MousePointer = 0
mg1.Visible = True
.Refresh
End With
End Function