Breadcrumbs

[Dummy1912]

Got it working Codenstuff
like i said starting over
now it works how it must be

thanks for you helping you are the BEST

Code: Select all

While empls.Read() = True
                        Dim item As New BoxControlItem
                        amexpense = 0
                        amincome = 0
                        amrefund = 0
                        iSpent = 0

                        With item
                            .Controls.Clear()
                            .Name = empls.GetValue(4) 'id
                            .Tag = empls.GetValue(4).ToString
                            dates = empls.GetValue(0).ToString

                            .MyAmount = Format(empls.GetValue(2).ToString)
                            .Amount = FormatCurrency(.MyAmount, 2)
                            .MyBudget = Format(tmpbalance)

                            If Not empls.GetValue(1).ToString = String.Empty Then
                                .mPayer = empls.GetValue(1).ToString
                            End If
                            .mDescription = empls.GetValue(3).ToString 'tooltip

                            If Not empls.GetValue(6).ToString = String.Empty Then
                                .Vendor = empls.GetValue(6).ToString
                            End If

                            If empls.GetValue(7).ToString = "True" Then
                                .mEnabled = True
                            Else
                                .mEnabled = False
                            End If

                            Select Case empls.GetValue(5).ToString

                                Case "Income"
                                    If .mEnabled = True Then
                                        .mColor = Color.Lime
                                        amincome = .MyAmount
                                        iBalance = Format(.MyBudget + .MyAmount)
                                        .Balance = FormatCurrency(iBalance, 2)
                                    Else
                                        .mColor = Color.FromArgb(116, 116, 116)
                                    End If
                                Case "Refund"
                                    If .mEnabled = True Then
                                        .mColor = Color.SteelBlue
                                        amrefund = .MyAmount
                                        iBalance = Format(.MyBudget + amrefund)
                                        .Balance = FormatCurrency(iBalance, 2)
                                    Else
                                        .mColor = Color.FromArgb(116, 116, 116)
                                    End If
                                Case "Expense"
                                    If .mEnabled = True Then
                                        .mColor = Color.Crimson
                                        amexpense = .MyAmount
                                        iBalance = Format(.MyBudget - amexpense)
                                        .Balance = FormatCurrency(iBalance, 2)
                                    Else
                                        .mColor = Color.FromArgb(116, 116, 116)
                                    End If
                            End Select

                            .mAccount = empls.GetValue(8).ToString 'accounts

                            .Refresh()
                            .Dock = DockStyle.Top
                        End With

                        Me.Invoke(New UpdateProgessCallback(AddressOf Me.updateprogress), item)
                        iTotalExpAmt += amexpense

                        If iBalance < 0 Then
                            'Gone over budget
                            Me.txtBalance.ForeColor = Color.Crimson
                            iBalance = -iBalance

                        Else
                            Me.txtBalance.ForeColor = Color.SteelBlue
                        End If
                        Me.txtBalance.Text = FormatCurrency(iBalance, 2)

                        txtTotSpent.Text = FormatCurrency(iTotalExpAmt, 2)
                    End While
                    empls.Close()
                Else
                    ClearTotalsInfo()
                End If

[CodenStuff]

If at first you don't succeed, give up and try something else. lol

Glad you got it working, good job

[Dummy1912]

Thanks Codenstuff