Datagrids on Tabs not displaying
-
I have a form with 4 datagrids, 3 of which are on a tabcontrol. All the grids are coming from the same source. The problem I'm running into is the grids on Tabs2 and 3 are not displaying the data. I stepped though the code and it's there but not displaying. I also changed the tab order to see if I had a code issue but again the grid in tab1 is the only one displayed. This is what I have for code:
For Each dgv As DataGridView In {dgvMain, dgvTab1, dgvTab2, dgvTab3}
'dgv.AutoGenerateColumns = True
dgv.DataSource = ds.Tables("TaskList")
dgv.AutoGenerateColumns = False
Next
Dim dgvRow As Integer = 0
Do Until (i = 15)
dgvMain.Item("RetrievalKey", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("RetrievalKey")
dgvMain.Item("TaskDescription", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("TaskDescription")
dgvMain.Item("LastDoneOn", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("LastDoneOn")
dgvMain.Item("Agent", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Agent")
dgvMain.Item("AgentOrder", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("AgentOrder")
dgvMain.Item("Query", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Query")
dgvTab1.Item("Param0", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param0")
dgvTab1.Item("Param1", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param1")
dgvTab1.Item("Param2", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param2")
dgvTab1.Item("Param3", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param3")
dgvTab1.Item("Param4", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param4")
dgvTab2.Item("Param5", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param5")
dgvTab2.Item("Param6", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param6")
dgvTab2.Item("Param7", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param7")
dgvTab2.Item("Param8", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param8")
dgvTab2.Item("Param9", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param9")
dgvTab3.Item("ErrorMessage", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("ErrorMessage")
dgvTab3.Item("QueryPath", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("QueryPath")dgvRow += 1
-
I have a form with 4 datagrids, 3 of which are on a tabcontrol. All the grids are coming from the same source. The problem I'm running into is the grids on Tabs2 and 3 are not displaying the data. I stepped though the code and it's there but not displaying. I also changed the tab order to see if I had a code issue but again the grid in tab1 is the only one displayed. This is what I have for code:
For Each dgv As DataGridView In {dgvMain, dgvTab1, dgvTab2, dgvTab3}
'dgv.AutoGenerateColumns = True
dgv.DataSource = ds.Tables("TaskList")
dgv.AutoGenerateColumns = False
Next
Dim dgvRow As Integer = 0
Do Until (i = 15)
dgvMain.Item("RetrievalKey", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("RetrievalKey")
dgvMain.Item("TaskDescription", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("TaskDescription")
dgvMain.Item("LastDoneOn", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("LastDoneOn")
dgvMain.Item("Agent", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Agent")
dgvMain.Item("AgentOrder", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("AgentOrder")
dgvMain.Item("Query", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Query")
dgvTab1.Item("Param0", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param0")
dgvTab1.Item("Param1", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param1")
dgvTab1.Item("Param2", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param2")
dgvTab1.Item("Param3", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param3")
dgvTab1.Item("Param4", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param4")
dgvTab2.Item("Param5", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param5")
dgvTab2.Item("Param6", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param6")
dgvTab2.Item("Param7", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param7")
dgvTab2.Item("Param8", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param8")
dgvTab2.Item("Param9", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param9")
dgvTab3.Item("ErrorMessage", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("ErrorMessage")
dgvTab3.Item("QueryPath", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("QueryPath")dgvRow += 1
Ok so if I make some changes and add an event to the Tab3 selected event (for lack of a better term) and then populate the DGV it displays. I'd rather it get populated in the first run rather than each time a tab is selected if possible....
-
I have a form with 4 datagrids, 3 of which are on a tabcontrol. All the grids are coming from the same source. The problem I'm running into is the grids on Tabs2 and 3 are not displaying the data. I stepped though the code and it's there but not displaying. I also changed the tab order to see if I had a code issue but again the grid in tab1 is the only one displayed. This is what I have for code:
For Each dgv As DataGridView In {dgvMain, dgvTab1, dgvTab2, dgvTab3}
'dgv.AutoGenerateColumns = True
dgv.DataSource = ds.Tables("TaskList")
dgv.AutoGenerateColumns = False
Next
Dim dgvRow As Integer = 0
Do Until (i = 15)
dgvMain.Item("RetrievalKey", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("RetrievalKey")
dgvMain.Item("TaskDescription", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("TaskDescription")
dgvMain.Item("LastDoneOn", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("LastDoneOn")
dgvMain.Item("Agent", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Agent")
dgvMain.Item("AgentOrder", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("AgentOrder")
dgvMain.Item("Query", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Query")
dgvTab1.Item("Param0", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param0")
dgvTab1.Item("Param1", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param1")
dgvTab1.Item("Param2", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param2")
dgvTab1.Item("Param3", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param3")
dgvTab1.Item("Param4", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param4")
dgvTab2.Item("Param5", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param5")
dgvTab2.Item("Param6", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param6")
dgvTab2.Item("Param7", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param7")
dgvTab2.Item("Param8", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param8")
dgvTab2.Item("Param9", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("Param9")
dgvTab3.Item("ErrorMessage", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("ErrorMessage")
dgvTab3.Item("QueryPath", dgvRow).Value = ds.Tables("TaskList").Rows(i).Item("QueryPath")dgvRow += 1
you have a problem with variable i not being initialized when it should. Why aren't you using a FOR or a FOR EACH loop, like everyone else would? :)
Luc Pattyn [My Articles] Nil Volentibus Arduum
-
you have a problem with variable i not being initialized when it should. Why aren't you using a FOR or a FOR EACH loop, like everyone else would? :)
Luc Pattyn [My Articles] Nil Volentibus Arduum
Habit of using Do loops...