Janus GridEx

[bradth]

I currently have a form created that displays information into a grid, using Janus GridEx 2000. However whenever the data is loaded into the grid, the first row is always blank. Then when you select a new row, and then re-select the first row, the data appears. Is there any reason for this, or a way to eliminate it so that the data in the first row appears automatically without having to select/reselect it? Thanks.

 

[petermeachem]

I've never seen this and use Janus on most forms now.
Can we see your code, and have you tried the Janus help, they reply pretty quickly.

http://www.accuflight.com

http://www.lettersdirect.co.uk

http://www.ourhouseinportugal.co.uk/

 

[bradth]

My code is really long, a few pages. For some reason the grid will not refresh for me either, I have to click inside the grid to get it to refresh when new data is imported into it with new parameters.

 

[petermeachem]

Can you put just the gist of the code like

csql = "select OrderEntryId , DeliveryNote , POD ,ID,LockOrderPod AS Received,ProcessedName , ProcessedDepot , ProcessedDateTime , PostDate, EnteredVia"
csql = csql & " from Delivery "
csql = csql & " where OrderEntryId = " & lOrderEntryId & " AND PostDate is null"
csql = csql & " ORDER BY DeliveryNote"
adoSecondaryRS.Open csql, db, adOpenStatic, adLockOptimistic

Set GridEX2.ADORecordset = adoSecondaryRS
Gridex2Formatting

http://www.accuflight.com

http://www.lettersdirect.co.uk

http://www.ourhouseinportugal.co.uk/

 

[bradth]

Ok, here it is

Private Sub mnuVR_Click()

Me.grdInvItemQty.ItemCount = 0
mRowCount = 0
ReDim mIndexCompleteArray(0)

Dim cnItem As ADODB.Connection
Dim rsItem As ADODB.Recordset

Set cnItem = New ADODB.Connection
Set rsItem = New ADODB.Recordset

If Me.chkLocation.Value Then
    j = Me.cboLocation.List(Me.cboLocation.ListIndex)
Else
    j = ""
End If

If Me.txtInvQty.Enabled Then
    k = Me.txtInvQty.List(Me.txtInvQty.ListIndex)
Else
    k = ""
End If

cnItem.Open gsSQLConnect
cnItem.CursorLocation = adUseClient
Screen.MousePointer = vbHourglass

'--Inserts Items Into Grid
rsItem.Open "Barcode.dbo.INV_RO_ALLITEMNUMBERS('" & j & "','" & k & "')", cnItem, adOpenForwardOnly, adLockReadOnly, adCmdStoredProc
'rsItem.Open "Barcode.dbo.INV_RO_ALLITEMNUMBERS('" & Me.cboLocation.List(Me.cboLocation.ListIndex) & "')", cnItem, adOpenForwardOnly, adLockReadOnly, adCmdStoredProc
Set rsItem.ActiveConnection = Nothing

mintItem = 0
    If rsItem.EOF Then
        Me.grdInvItemQty.ItemCount = 0
        mRowCount = 0
    Else
        i = 1
        rsItem.MoveFirst
                
        Do Until rsItem.EOF
            If i > 1 Then
                ReDim Preserve mIndexCompleteArray(i)
            Else
                ReDim mIndexCompleteArray(i)
            End If
    
    mIndexCompleteArray(i).ITEMNMBR = rsItem!ITEMNMBR
    mIndexCompleteArray(i).ITEMDESC = rsItem!ITEMDESC
    mIndexCompleteArray(i).QTYONHND = rsItem!QTYONHND
    mIndexCompleteArray(i).LOCNCODE = rsItem!LOCNCODE

        i = i + 1
        rsItem.MoveNext
        Debug.Print "i is" & i
    Loop
    rsItem.Close
    Set rsItem = Nothing
    cnItem.Close
    Set cnItem = Nothing
    i = i - 1
    Me.grdInvItemQty.ItemCount = i
    
    mRowCount = i
    Screen.MousePointer = vbDefault
    End If
End Sub

The grdInvItemQty is the JanusGridEx 2000.


Thanks

 

[petermeachem]

It's unbound is it?

Have you set the columns up and have you got the other unbound events in?

I think I had problems with this until I followed exactly what was in the help file example.

http://www.accuflight.com

http://www.lettersdirect.co.uk

http://www.ourhouseinportugal.co.uk/

 

[bradth]

HAHA, I finally got it, it was that I was setting my

mRowCount = 0

and really I should of had it

mRowCount = 1

Thanks for you help though. Cheers