Count rows in datagridview : Datagridview, progressbar

May 17, 2008 03:49am pdt

1. TheLearn... 149,325
2. ZachSmith 89,365
3. Dhaest 88,461
4. jpaulino 81,595
5. PaulHews 79,752
6. jaime_ol... 76,080
7. Fernando... 69,525
8. Sancler 62,269
9. angelIII 57,890
10. vb_jonas 55,375
11. GreenGhost 49,747
12. Idle_Mind 46,049
13. JimBrandley 41,514
14. emoreau 41,224
15. surajguptha 40,350

1. TheLearn... 1,732,478
2. iboutchkine 797,268
3. mmarinov 554,677
4. gregoryy... 489,841
5. Idle_Mind 484,360
6. naveenkohli 451,699
7. emoreau 411,281
8. testn 352,601
9. YZlat 331,857
10. RobertRF... 331,569
11. AlexFM 304,664
12. surajguptha 302,620
13. Fernando... 270,540
14. Arthur_Wood 266,672
15. graye 258,313

02.26.2008 at 08:22AM PST, ID: 23194000

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

7.6

Count rows in datagridview

Zones: .NET, Microsoft Visual C#.Net, .NET Framework 2.0

Tags: Datagridview, progressbar

I am trying to run a progress bar based on the nymber of rows in a datagridview. I seem to not be getting a count, my progress bar does not run. Any ideas?

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

           
           
             ProgressBar1.Visible = True
        ProgressBar1.Minimum = 1
        ProgressBar1.Maximum = counter
        ProgressBar1.Step = 1
        FlPrcs.Enabled = False
 
        For counter = 0 To (DataGridView.Rows.Count - 1)
            If Not DataGridView.Rows(counter) _
                .Cells("column1").Value Is Nothing Then
                If Not DataGridView.Rows(counter) _
                    .Cells("column1").Value.ToString().Length = 0 Then
                    pwd += _
                        Integer.Parse(DataGridView.Rows(counter) _
                        .Cells("column1").Value.ToString())
                End If
            End If
        Next
 
do stuff .....
 
            ProgressBar1.PerformStep()
            Application.DoEvents()
        Next row

           
         

Start your free trial to view this solution

Question Stats

Zone: Programming

Question Asked By: judsonhh

Solution Provided By: ee_rlee

Participating Experts: 2

Solution Grade: A

Translate:

Loading Advertisement...

Microsoft

Internet Protocols
Applications

Development
OS

Hardware
Windows Security

Apple

Operating Systems
Hardware

Programming
Networking

Software

Internet

Search Engines
File Sharing
WebTrends / Stats
Spy / Ad Blockers

Web Browsers
New Net Users
Web Development
Chat / IM

Anti Spam
Web Servers
Anti-Virus
Email Clients

Gamers

Tips
Online / MMORPG
Puzzle
Emulators

Action / Adventure
Role Playing
Consoles
Game Programming

Strategy
Sports
Misc
Computer Games

Digital Living

Hardware
New Net Users
New Users

Software
Digital Music
Gaming World

Home Security
Apple
Networking Hardware

Virus & Spyware

Vulnerabilities
IDS
Encryption
Anti-Virus

Operating Systems Security
Software Firewalls
WebApplications
Cell Phones

Operating Systems
Internet
Hardware Firewalls

Hardware

Handhelds / PDAs
Displays / Monitors
Components
Networking Hardware

Peripherals
Laptops/Notebooks
Storage
Servers

Desktops
New Users
Misc
Apple

Software

System Utilities
Industry Specific
Network Management
Photos / Graphics
Page Layout
VMWare
Misc
Web Development

OS
CYGWIN
Voice Recognition
Message Queue
Quality Assurance
Security
Firewalls
MultiMedia Applications

Development
Database
Office / Productivity
Business Management
OS/2 Apps
Server Software
Internet / Email

ITPro

OS
Storage
Encryption
Operating Systems Security
Apple Hardware
Laptops & Notebooks
Servers
Networking Hardware
Peripherals

Devices
Displays / Monitors
WebTrends / Stats
Search Engines
Firewalls
WebApplications
IDS
Vulnerabilities
Email Clients

File Sharing
Spy / Ad Blockers
Web Browsers
Web Servers
Networking
Anti-Virus
Chat / IM
Anti Spam

Developer

Web Servers
Web Browsers
Game Programming
Dev Tools
Industry Specific
Office / Productivity

Database
CYGWIN
Web Development
Search Engines
File Sharing
WebTrends / Stats

Programming
Content Management
Application Servers
Protocols

Storage

Removable Backup Media
Storage Technology
Servers

Grid
Remote Access
Backup / Restore

Misc
Hard Drives

Miscellaneous
Security
Development
Linux
VMWare

MainFrame OS
Unix
Apple
OS / 2
AS / 400

BeOS
Microsoft
VMS / OpenVMS

Database

Oracle
Miscellaneous
MySQL
Software
Sybase
Contact Management
PostgreSQL
Data Manipulation
Clarion
InterSystems Cache

Siebel
MUMPS
OLAP
SQLBase
SAS
GIS & GPS
4GL
Berkeley DB
DB2
Informix

Interbase / Firebird
FoxPro
Reporting
LDAP
Filemaker Pro
MS SQL Server
dBase
MS Access

Security

Misc
Web Browsers
Software Firewalls
Operating Systems Security
File Sharing

Spy / Ad Blockers
Vulnerabilities
WebApplications
IDS
Anti-Virus

Encryption
Anti Spam
Email Clients
VPN
Chat / IM

Programming

Editors IDEs
Installation
Handhelds / PDAs
Multimedia Programming
System / Kernel

Algorithms
Game
Signal Processing
Project Management
Open Source

Database
Misc
Languages
Processor Platforms
Theory

Web Development

Scripting
Blogs
Web Servers
Software
Search Engines
Web Graphics
Images

Internet Marketing
Images and Photos
Components
Document Imaging
Web Languages/Standards
Illustration
WebApplications

Fonts
WebTrends / Stats
Authoring
Digital Camera Software
Miscellaneous

Networking

Protocols
Apple Networking
Network Management
Message Queue
Application Servers
Content Management
File Servers
Email Servers
Misc
Java Editors & IDEs

Wireless
Networking Hardware
Backup / Restore
System Utilities
ISPs & Hosting
Web Servers
Storage Technology
Removable Backup Media
Servers
Broadband

Grid
OS / 2
Novell Netware
Unix Networking
Windows Networking
Security
Telecommunications
Operating Systems
Linux Networking

Other

Community Advisor
Lounge
Community Support
New Net Users

Philosophy / Religion
Math / Science
Miscellaneous
URLs

Expert Lounge
Politics
Puzzles / Riddles

Community Support

Suggestions
New to EE
New Topics
Community Advisor

CleanUp
Announcements
General

Feedback
Input
EE Bugs

02.26.2008 at 08:26AM PST, ID: 20985797

Rank: Master

p_davis:

how are you running your progress bar? does this method get called constantly or just once? when does it get called?

are you using a backgroundworker ?

02.26.2008 at 08:29AM PST, ID: 20985825

ee_rlee:

hi, where is the for statement for row?

ProgressBar1.PerformStep()
Application.DoEvents()
Next row

02.26.2008 at 08:35AM PST, ID: 20985916

judsonhh:

It just gets called once ..... Once the data is loaded and the Sub FlPrcs_Click runs, I want the progressbar to count the populated rows and use that static value as the ProgressBar1.Maximum.

I pasted the entire process code below :)

Thanks guys!

                       
                          
                             
                                1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:

                             
                             
                                Private Sub FlPrcs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlPrcs.Click
        Dim destnamepath As String = Dir2.Text
        Dim pwd As New Integer
        Dim counter As Integer
 
        ProgressBar1.Visible = True
        ProgressBar1.Minimum = 1
        ProgressBar1.Maximum = counter
        ProgressBar1.Step = 1
        FlPrcs.Enabled = False
 
        For counter = 0 To (DataGridView.Rows.Count - 1)
            If Not DataGridView.Rows(counter) _
                .Cells("column1").Value Is Nothing Then
                If Not DataGridView.Rows(counter) _
                    .Cells("column1").Value.ToString().Length = 0 Then
                    pwd += _
                        Integer.Parse(DataGridView.Rows(counter) _
                        .Cells("column1").Value.ToString())
                End If
            End If
        Next
 
        'process files
        For Each row As DataGridViewRow In DataGridView.Rows
            If row.Cells("column1").Value IsNot Nothing Then
                Dim name1 As String = row.Cells("column1").Value.ToString()
                Dim name2 As String = row.Cells("column2").Value.ToString()
                Dim name3 As String = row.Cells("column3").Value.ToString()
                Dim name4 As String = row.Cells("column4").Value.ToString()
                Dim name5 As String = row.Cells("column4").Value.ToString()
                Dim name6 As String = row.Cells("column6").Value.ToString()
                Dim name7 As String = row.Cells("column7").Value.ToString()
 
                If name2.Length > 0 AndAlso Not name2.StartsWith(".") Then
                    Dim newFilename As String = Path.Combine(destnamepath, name4 & ".xml")
                    Dim ws As New XmlWriterSettings()
                    ws.CheckCharacters = True
                    ws.CloseOutput = True
                    Using xw As XmlWriter = XmlWriter.Create(newFilename, ws)
                        Try
                            ' ... create the XML document here ...
                            xw.WriteStartDocument()
                            xw.WriteComment("Created at " & DateTime.Now.ToString("hh:mm:ss"))
                            xw.WriteStartElement("labels")
                            xw.WriteStartElement("label", Nothing)
                            xw.WriteAttributeString("copyright", "Copyright (c) 2002, Telestream Inc.")
                            xw.WriteAttributeString("decription", "Contains information commonly associated with commercial media content(spots).")
                            xw.WriteAttributeString("name", "Spot")
                            xw.WriteAttributeString("uuid", "{09657B42-86F4-40af-A608-239B218651EB}")
                            xw.WriteStartElement("isci", Nothing)
                            xw.WriteAttributeString("name", "ISCI Identifier")
                            xw.WriteAttributeString("type", "text")
                            xw.WriteValue(name4 & " ISCI")
                            xw.WriteEndElement()
                            xw.WriteStartElement("title", Nothing)
                            xw.WriteAttributeString("name", "Title")
                            xw.WriteAttributeString("type", "text")
                            xw.WriteValue(name6)
                            xw.WriteEndElement()
                            xw.WriteStartElement("product", Nothing)
                            xw.WriteAttributeString("name", "Product Name/Info")
                            xw.WriteAttributeString("type", "text")
                            xw.WriteValue(name7)
                            xw.WriteEndElement()
                            xw.WriteStartElement("duration", Nothing)
                            xw.WriteAttributeString("name", "Duration")
                            xw.WriteAttributeString("type", "time")
                            xw.WriteValue(name3 & ":00")
                            xw.WriteEndElement()
                            xw.WriteEndElement()
                            xw.WriteStartElement("label", Nothing)
                            xw.WriteAttributeString("copyright", "Copyright (c) 2002, Telestream Inc.")
                            xw.WriteAttributeString("decription", "Contains the local or 'house' identifier associated with a media asset.")
                            xw.WriteAttributeString("name", "House")
                            xw.WriteAttributeString("uuid", "{6ED441E8-F73B-428b-B30A-C718666EC199}")
                            'xw.WriteEndElement()
                            xw.WriteStartElement("house", Nothing)
                            xw.WriteAttributeString("name", "House Identifier")
                            xw.WriteAttributeString("type", "text")
                            xw.WriteValue(name4)
                            xw.WriteEndElement()
                            xw.WriteEndElement()
                            xw.WriteEndDocument()
                            xw.Close()
                            MntrTxt.AppendText(name4 & ".xml" & " created!" & vbCrLf)
                        Catch ex As Exception
                            MessageBox.Show("Is Dub list complete? Are there any blank fields?")
                        End Try
                    End Using
                End If
            End If
            ' End If
            ProgressBar1.PerformStep()
            Application.DoEvents()
        Next row
        'finish rename process
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            MsgBox("Rename Complete")
            ProgressBar1.Visible = False
            FlPrcs.Enabled = True
        End If
    End Sub
                             
                          

                    

Open in New Window

02.26.2008 at 08:37AM PST, ID: 20985938

Rank: Master

p_davis:

does DataGridView.Rows.Count return a number greater than 0?

02.26.2008 at 08:40AM PST, ID: 20985972

ee_rlee:

change

ProgressBar1.Maximum = counter

to

ProgressBar1.Maximum = DataGridView.Rows.Count

Accepted Solution

ee_rlee

02.26.2008 at 08:51AM PST, ID: 20986096

try this

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:

           
           
             Private Sub FlPrcs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlPrcs.Click
        Dim destnamepath As String = Dir2.Text
        Dim pwd As New Integer
        Dim counter As Integer
 
        ProgressBar1.Visible = True
        ProgressBar1.Minimum = 1
        ProgressBar1.Step = 1
        FlPrcs.Enabled = False
 
        For counter = 0 To (DataGridView.Rows.Count - 1)
            If Not DataGridView.Rows(counter) _
                .Cells("column1").Value Is Nothing Then
                If Not DataGridView.Rows(counter) _
                    .Cells("column1").Value.ToString().Length = 0 Then
                    pwd += _
                        Integer.Parse(DataGridView.Rows(counter) _
                        .Cells("column1").Value.ToString())
                End If
            End If
        Next
 
        'process files
        ProgressBar1.Maximum = DataGridView.Rows.Count
        For Each row As DataGridViewRow In DataGridView.Rows
            If row.Cells("column1").Value IsNot Nothing Then
                Dim name1 As String = row.Cells("column1").Value.ToString()
                Dim name2 As String = row.Cells("column2").Value.ToString()
                Dim name3 As String = row.Cells("column3").Value.ToString()
                Dim name4 As String = row.Cells("column4").Value.ToString()
                Dim name5 As String = row.Cells("column4").Value.ToString()
                Dim name6 As String = row.Cells("column6").Value.ToString()
                Dim name7 As String = row.Cells("column7").Value.ToString()
 
                If name2.Length > 0 AndAlso Not name2.StartsWith(".") Then
                    Dim newFilename As String = Path.Combine(destnamepath, name4 & ".xml")
                    Dim ws As New XmlWriterSettings()
                    ws.CheckCharacters = True
                    ws.CloseOutput = True
                    Using xw As XmlWriter = XmlWriter.Create(newFilename, ws)
                        Try
                            ' ... create the XML document here ...
                            xw.WriteStartDocument()
                            xw.WriteComment("Created at " & DateTime.Now.ToString("hh:mm:ss"))
                            xw.WriteStartElement("labels")
                            xw.WriteStartElement("label", Nothing)
                            xw.WriteAttributeString("copyright", "Copyright (c) 2002, Telestream Inc.")
                            xw.WriteAttributeString("decription", "Contains information commonly associated with commercial media content(spots).")
                            xw.WriteAttributeString("name", "Spot")
                            xw.WriteAttributeString("uuid", "{09657B42-86F4-40af-A608-239B218651EB}")
                            xw.WriteStartElement("isci", Nothing)
                            xw.WriteAttributeString("name", "ISCI Identifier")
                            xw.WriteAttributeString("type", "text")
                            xw.WriteValue(name4 & " ISCI")
                            xw.WriteEndElement()
                            xw.WriteStartElement("title", Nothing)
                            xw.WriteAttributeString("name", "Title")
                            xw.WriteAttributeString("type", "text")
                            xw.WriteValue(name6)
                            xw.WriteEndElement()
                            xw.WriteStartElement("product", Nothing)
                            xw.WriteAttributeString("name", "Product Name/Info")
                            xw.WriteAttributeString("type", "text")
                            xw.WriteValue(name7)
                            xw.WriteEndElement()
                            xw.WriteStartElement("duration", Nothing)
                            xw.WriteAttributeString("name", "Duration")
                            xw.WriteAttributeString("type", "time")
                            xw.WriteValue(name3 & ":00")
                            xw.WriteEndElement()
                            xw.WriteEndElement()
                            xw.WriteStartElement("label", Nothing)
                            xw.WriteAttributeString("copyright", "Copyright (c) 2002, Telestream Inc.")
                            xw.WriteAttributeString("decription", "Contains the local or 'house' identifier associated with a media asset.")
                            xw.WriteAttributeString("name", "House")
                            xw.WriteAttributeString("uuid", "{6ED441E8-F73B-428b-B30A-C718666EC199}")
                            'xw.WriteEndElement()
                            xw.WriteStartElement("house", Nothing)
                            xw.WriteAttributeString("name", "House Identifier")
                            xw.WriteAttributeString("type", "text")
                            xw.WriteValue(name4)
                            xw.WriteEndElement()
                            xw.WriteEndElement()
                            xw.WriteEndDocument()
                            xw.Close()
                            MntrTxt.AppendText(name4 & ".xml" & " created!" & vbCrLf)
                        Catch ex As Exception
                            MessageBox.Show("Is Dub list complete? Are there any blank fields?")
                        End Try
                    End Using
                End If
            End If
            ' End If
            ProgressBar1.PerformStep()
            Application.DoEvents()
        Next row
        'finish rename process
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            MsgBox("Rename Complete")
            ProgressBar1.Visible = False
            FlPrcs.Enabled = True
        End If
    End Sub

           
         

Open in New Window

20080236-EE-VQP-29 / EE_QW_EXPERT_20070906