Problem with data grid

[ashwin]

I have a Data Grid to display employee names and codes. On clicking a
button (outside the datagrid) I perform some calculations which sets
the fields of other columns in the datagrid.
The problem I am facing is that not all columns are filled with values
resulting from the calculations. Only the first few rows are being
filled with results.

---------------------------------------------------------------------------------------------------------------------------------------------
The datagrid code follows :

<asp:datagrid id="dg1" runat="server" Width="920px" Height="145px"
PageSize="5" AutoGenerateCol umns="False"
BorderStyle="Gr oove">
<ItemStyle ForeColor="Blac k"
BackColor="#B0C 4DE"></ItemStyle>
<HeaderStyle Font-
Size="Smaller" Font-Names="Arial" Font-
Bold="True" HorizontalAlign ="Center"
ForeColor="#FAF AD2"
BackColor="#468 2B4"></HeaderStyle>
<Columns>
<asp:TemplateCo lumn
HeaderText="Emp loyee Id">
<ItemStyle
ForeColor="Blac k"></ItemStyle>
<ItemTemplate >

<asp:Label ID="ecode" runat="server" Text='<%#
DataBinder.Eval (Container.Data Item,"EmpIdCode ") %>'>
</
asp:Label>
</ItemTemplate>

<EditItemTempla te>

<asp:TextBox runat="server"> </asp:TextBox>
</
EditItemTemplat e>
</asp:TemplateCol umn>
<asp:TemplateCo lumn
HeaderText="Emp loyee Name">
<ItemStyle
ForeColor="Blac k"></ItemStyle>
<ItemTemplate >

<asp:Label ID="ename" runat="server" Text='<%#
DataBinder.Eval (Container.Data Item,"name") %>'>
</
asp:Label>
</ItemTemplate>

<EditItemTempla te>

<asp:TextBox runat="server"> </asp:TextBox>
</
EditItemTemplat e>
</asp:TemplateCol umn>
<asp:TemplateCo lumn
HeaderText="Wor ked Days">
<ItemStyle
HorizontalAlign ="Center" ForeColor="Blac k"></
ItemStyle>
<ItemTemplate >

<asp:Label ID="workdays" runat="server"> </asp:Label>
</ItemTemplate>

<EditItemTempla te>

<asp:TextBox runat="server"> </asp:TextBox>
</
EditItemTemplat e>
</asp:TemplateCol umn>
<asp:TemplateCo lumn
HeaderText="Off Days">
<ItemStyle
HorizontalAlign ="Center" ForeColor="Blac k"></
ItemStyle>
<ItemTemplate >

<asp:Label ID="offdays" runat="server"> </asp:Label>
</ItemTemplate>

<EditItemTempla te>

<asp:TextBox runat="server"> </asp:TextBox>
</
EditItemTemplat e>
</asp:TemplateCol umn>
<asp:TemplateCo lumn
HeaderText="Hol idays Payable">
<ItemStyle
HorizontalAlign ="Center" ForeColor="Blac k"></
ItemStyle>
<ItemTemplate >

<asp:Label ID="holiday" runat="server"> </asp:Label>
</ItemTemplate>

<EditItemTempla te>

<asp:TextBox runat="server"> </asp:TextBox>
</
EditItemTemplat e>
</asp:TemplateCol umn>
<asp:TemplateCo lumn
HeaderText="Hol iday ( Double_Salary)" >
<ItemStyle
HorizontalAlign ="Center" ForeColor="Blac k"></
ItemStyle>
<ItemTemplate >

<asp:Label ID="Holiday2" runat="server"> </asp:Label>
</ItemTemplate>

<EditItemTempla te>

<asp:TextBox runat="server"> </asp:TextBox>
</
EditItemTemplat e>
</asp:TemplateCol umn>
<asp:TemplateCo lumn
HeaderText="Pay able Leave Days">
<ItemStyle
HorizontalAlign ="Center" ForeColor="Blac k"></
ItemStyle>
<ItemTemplate >

<asp:Label ID="Leave" runat="server"> </asp:Label>
</ItemTemplate>

<EditItemTempla te>

<asp:TextBox runat="server"> </asp:TextBox>
</
EditItemTemplat e>
</asp:TemplateCol umn>
<asp:TemplateCo lumn
HeaderText="Tot al Pay Days">
<ItemStyle
HorizontalAlign ="Center" ForeColor="Blac k"></
ItemStyle>
<ItemTemplate >

<asp:Label ID="Total" runat="server"> </asp:Label>
</ItemTemplate>

<EditItemTempla te>

<asp:TextBox runat="server"> </asp:TextBox>
</
EditItemTemplat e>
</asp:TemplateCol umn>
</Columns>
<PagerStyle
Mode="NumericPa ges"></PagerStyle>
</asp:datagrid>

--------------------------------------------------------------------------------------------------------------------------------------------

--------------------------------------------------------------------------------------------------------------------------------------------
code to fill in the columns :

Private Sub btnCal_Click(By Val sender As System.Object, ByVal e As
System.EventArg s) Handles btnCal.Click
On Error GoTo er
If txtDateFrom.Tex t = "" Or txtDateTo.Text = "" Then
Call MessageBox("Dat e are Blank")

Else
For Each ditem In dg1.Items
empcode = ditem.FindContr ol("ecode")
wdays = ditem.FindContr ol("workdays")
off = ditem.FindContr ol("offdays")
hol = ditem.FindContr ol("holiday")
hol2 = ditem.FindContr ol("Holiday2")
leav = ditem.FindContr ol("Leave")


wdays.Text =
working_days(Fo rmat(DateValue( txtDateFrom.Tex t), "yyyy-MM-dd"),
Format(DateValu e(txtDateTo.Tex t), "yyyy-MM-dd"), empcode.Text)
off.Text =
off_days(Format (DateValue(txtD ateFrom.Text), "yyyy-MM-dd"),
Format(DateValu e(txtDateTo.Tex t), "yyyy-MM-dd"))
hol.Text =
holiday(Format( DateValue(txtDa teFrom.Text), "yyyy-MM-dd"),
Format(DateValu e(txtDateTo.Tex t), "yyyy-MM-dd")) -
(hol_with_1_sal (Format(DateVal ue(txtDateFrom. Text), "yyyy-MM-dd"),
Format(DateValu e(txtDateTo.Tex t), "yyyy-MM-dd"), empcode.Text) +
hol_with_2_sal( Format(DateValu e(txtDateFrom.T ext), "yyyy-MM-dd"),
Format(DateValu e(txtDateTo.Tex t), "yyyy-MM-dd"), empcode.Text))
hol2.Text =
hol_with_2_sal( Format(DateValu e(txtDateFrom.T ext), "yyyy-MM-dd"),
Format(DateValu e(txtDateTo.Tex t), "yyyy-MM-dd"), empcode.Text)
leav.Text =
Leave_count(For mat(DateValue(t xtDateFrom.Text ), "yyyy-MM-dd"),
Format(DateValu e(txtDateTo.Tex t), "yyyy-MM-dd"), empcode.Text,
Session("AccCom pID"), Session("AccBra nchID")) -
hol_leav(Format (DateValue(txtD ateFrom.Text), "yyyy-MM-dd"),
Format(DateValu e(txtDateTo.Tex t), "yyyy-MM-dd"), empcode.Text,
Session("AccCom pID"), Session("AccBra nchID"))


Next
End If
Exit Sub
er:
Err.Clear()
Exit Sub

End Sub
--------------------------------------------------------------------------------------------------------------------------------------------

Help Needed !
Thank You.