一、思维导图
二、如何导图Excel
三、代码展示
Private Sub cmdInquiry_Click()
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
'查询选定范围里的数据
txtSQL = "select * from Recharge_Info where date > '" & begindate.Value & "' and date < '" & enddate.Value & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF Then '无数据时提示
MsgBox "该时间段无数据", vbOKOnly, "温馨提示:"
Exit Sub
End If
With MSHFlexGrid1 '有数据逐个加载
.Rows = 1
.CellAlignment = 4
.TextMatrix(0, 0) = "卡号"
.TextMatrix(0, 1) = "充值金额"
.TextMatrix(0, 2) = "充值日期"
.TextMatrix(0, 3) = "充值时间"
.TextMatrix(0, 4) = "充值操作员"
.TextMatrix(0, 5) = "结账状态"
Do While Not mrc.EOF '循环加载
.Rows = .Rows + 1
.CellAlignment = 4
.TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(2))
.TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(3))
.TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(4))
.TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(5))
.TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(6))
.TextMatrix(.Rows - 1, 5) = Trim(mrc.Fields(7))
mrc.MoveNext
Loop
End With
End Sub