陕西中亿建设有限公司:利用VB表格MSFlexGrid1取出设备中的数据(有详细说明)急.

_______________________取数据步骤_______________________________
有刷卡事件 {
循环取事件 { IndexEvent = ReturnIndex and bACardEvent = true and IndexEvent < 200
IndexEvent ++
无或错就跳出
}
}

__________________取数据函数____________________________________
function GetCardEventEX(Address: Integer; ControlType: Integer; IndexEvent: Integer;out ReturnIndex: Integer;out CardNo: WideString; out EventTime: TDateTime;out EventType: Integer; out DoorAddress: Integer; out ACardEvent: WordBool): WordBool; safecall;
读取卡事件
Address 控制器地址编号
ControlType控制器类型
IndexEvent 索引号 每次循环取事件开始为1，取事件正确就加1，到 $EE 就退出循环
ReturnIndex 返回索引号 和IndexEvent不同表示有错
CardNo 卡号
EventTime 时间
EventType 事件类型
DoorAddress 门编号
ACardEvent 是否还有卡事件
________________取一条记录(VB测试通过)_________________________
Dim bRet As Boolean
Dim EventType As Long
Dim DoorAddress As Long
Dim address, ReturnIndex As Long
Dim CardNo As String
Dim EventTime As Date
Dim bACardEvent As Boolean
Dim bOk As Boolean

address = CLng(Me.txtDoor.Text)

'Set obHX = New HXMachine
bRet = obHX.GetCardEventEX(address, ControlType, IndexEvent, ReturnIndex, CardNo, EventTime, EventType, DoorAddress, bACardEvent)

If IndexEvent = ReturnIndex Then
bOk = True
Else
bOk = False
End If

If bOk = True Then
IndexEvent = IndexEvent + 1
Else
IndexEvent = 1
End If

If IndexEvent >= 254 Then
IndexEvent = 1
End If

If bACardEvent = True Then
Me.chkCardStill.Value = 1
Else
Me.chkCardStill.Value = 0
End If

If bOk = True And bRet = True Then
Me.txtCardNo.Text = CardNo
Me.txtTime.Text = CStr(EventTime)
Me.txtEventType.Text = CStr(EventType)
Me.txtCardDoor.Text = CStr(DoorAddress)
Else
MsgBox "读取刷卡记录失败"
End If
______________________________________________________________
现在要循环取出数据放入表格MSFlexGrid中.比较急,请各位帮帮忙.