Question on MSHFlexgrid in VB
Posted on 2002-04-05
I am using MSHFlexgrid in my form.And i am showing data in the MSHFlexgrid.Its working find in my computer.I packaged my application, and i installed in my user m/c.When i test in user m/c its saying unexpected error 3704 ( operation is not allowed when the object is clossed.) I checked the MSHFlexgrid ActiveX control existed in user m/c.I tried back and forth in different ways to fix this problem. I didn't get the solution.
could you tell me what may be the problem.
Note: I am using the following procedure to load data into MSHFlexGrid control
Public Sub SetShowkeyRNo(oMSHFlexKey As MSHFlexGrid, sBill_Code As String, sSysDate As String, iRNo As Integer)
Rem This procedure is used for Depending on the Record number that was selected from the user.
Dim sSQL As String
Dim rstShwRNo As New ADODB.Recordset
Dim lcsrPrev As Long
On Error GoTo Err_SetShowKeyRNo
sSQL = ""
sSQL = "SELECT Distinct(Rec_No),Ind_Sys_Date,Fund_cont_val,Net_unbill,WIP_date,Cont_date_bill_amt,Last_inv_date," _
& "Draft_inv_Amt,Cont_Type,Enga_start_date,Enga_end_date,Audit_comm" _
& " FROM KeySumm WHERE Bill_Code = '" & sBill_Code & "' AND (Ind_Sys_Date <= #" & sSysDate & "#) AND (Rec_No <= " & iRNo & ") ORDER BY Rec_No DESC"
If GetRcdSet(sSQL, cnnCAD, rstShwRNo) Then
If rstShwRNo.State <> adStateClosed Then
'Turn off redrawing to avoid flickering
oMSHFlexKey.Redraw = False
If rstShwRNo.RecordCount > 0 Then
Set oMSHFlexKey.Recordset = rstShwRNo
oMSHFlexKey.ColWidth(0) = "600"
oMSHFlexKey.ColWidth(1) = "1000"
oMSHFlexKey.ColWidth(11) = "4000"
oMSHFlexKey.RowHeight(oMSHFlexKey.Row) = 250
'oMSHFlexKey.AllowUserResizing = True
oMSHFlexKey.Redraw = True
oMSHFlexKey.FocusRect = flexFocusLight
'oMSHFlexKey.Redraw = True
'oMSHFlexKey.ColWidth(5) = "3000"
'oMSHFlexKey.RowHeight(1) = "500"
oMSHFlexKey.Text = "No histary records found!"
Rem close the record set
Rem Exit from the procedure
Select Case Err
AssertError modName & ".SetShowKeyRNo"