my listview is empty

[squrel]

Hello all,
i have listview called lvbill and a grid called grid_data1.. i m getting the data in my gird by nothing is appearing in my listview.. by pressing in the button cmdshowbill the listview and gird are appearing but my listview is empty..
is anybody there to help me out.. thank u very much
here is my code :

Private Sub cmdshowbill_Click()
    LvBill.Visible = True
    LvBill.ListItems.Clear
    LvBillPo.Visible = False
    Call BillList
    cmdaddbill.Visible = True
    MSHFlexGrid3.Visible = True
     Call Grid_Data1
End Sub
 
 
Public Sub BillList()
Dim i As Integer
Dim TotalPay As Double
Dim bal As Long
Dim AdjAmt As Double
Dim TdsAmt As Double
Dim NewItem     As MSComctlLib.ListItem
Dim NewColumn As MSComctlLib.ColumnHeader
Dim Rs2         As New ADODB.Recordset
Dim Rs1         As New ADODB.Recordset
Dim SQL As String
 
 
            LvBill.ListItems.Clear
            LvBill.ColumnHeaders.Add 1, , "BillNo", 1500
            LvBill.ColumnHeaders.Add 2, , "BillDate", 1500
            LvBill.ColumnHeaders.Add 3, , "AmendNo", 1500
            LvBill.ColumnHeaders.Add 4, , "billTotal", 1500
            LvBill.ColumnHeaders.Add 5, , "AdjAmount", 2000
            LvBill.ColumnHeaders.Add 6, , "TDSAmount", 2000
            LvBill.ColumnHeaders.Add 7, , "BalanceAmt", 2000
 
 
                 LvBill.Visible = True
                 LvBill.ListItems.Clear
                ' Start
                    If Rs2.State = adStateOpen Then Rs2.Close
 
 
                     Rs2.Open ("SELECT * from Txbills where Unitid ='" & txtUnitId.Text & "' and VendorId ='" & txtVendorId.Text & "'And Ind <>'8'And Ind ='1'and YY = " & FinancialYear & " "), Db, adOpenKeyset, adLockPessimistic
 
 
                    If Not Rs2.EOF And Not Rs2.BOF Then
                    While Not Rs2.EOF
                        Set NewItem = LvBill.ListItems.Add(, , Rs2.Fields("BillNo"))
                            NewItem.SubItems(1) = Rs2.Fields("BillDate").Value
                            NewItem.SubItems(2) = Rs2.Fields("AmendNo").Value
                            NewItem.SubItems(3) = Rs2.Fields("BillAmt").Value + Rs2.Fields("BillTax").Value
                            'NewItem.SubItems(3) = Rs1.Fields("PoTotal").Value
                        'paid Amount
                                    If Rs1.State = adStateOpen Then Rs1.Close
                                    Rs1.Open ("SELECT Sum(AdjAmt),Sum(TDSAmt)  from txBills where BillNo ='" & Rs1.Fields("BillNo") & "' and BillYY = '" & txtyear.Text & " ' "), Db, adOpenKeyset, adLockPessimistic
                                    If Not Rs1.EOF And Not Rs1.BOF Then
'                                    While Not Rs.EOF
                                            If IsNull(Rs1.Fields(0)) = False Then
                                                 AdjAmt = Rs1.Fields(0).Value
                                             Else
                                                AdjAmt = "0"
                                            End If
                                            If IsNull(Rs1.Fields(1)) = False Then
                                                 TdsAmt = Rs1.Fields(1).Value
                                             Else
                                                TdsAmt = "0"
                                            End If
                                            TotalPay = AdjAmt + TdsAmt
                                            'bal = (Rs1.Fields("PoTotal").Value) - TotalPay
                                            bal = (Rs2.Fields("BillAmt").Value + Rs2.Fields("BillTax").Value) - TotalPay
                                            NewItem.SubItems(6) = bal
                                        Rs1.MoveNext
'                                    Wend
                                End If
'                                Rs.Close
 
                        ' End
 
                        Rs2.MoveNext
                    Wend
                End If
End Sub
 

[Dököll]

Hey there good buddy!

Sorry for your troubles...

Can you step into it through debug mode to see if any fields are being returned?

Dököll

[squrel]

hi.. thank u for the reply
i had gone through the debug bt not getting any error or anything.. just nothing shows on my LVBILL... is my connection has some problem or have to set something? plz help
thank u

[lotus18]

Try to check your query if it is returning a value or not.


Rey Sean

[squrel]

got the problem :)
thankx a lot to all