For Each row As DataRow In fundTbl.Rows Dim dtFundDetails As DataTable Dim dtFundCd As DataTable Dim fundCd As String Dim investmentamount = CType(row("investmentAmount").ToString.Trim, Decimal) GrossWDWAmount = GrossWDWAmount + investmentamount dtFundCd = a.GetFundCdEPF(row("epfFundCode")) fundCd = dtFundCd.Rows(0)("UFndFCd").ToString dtFundDetails = a.GetFundDetails(requestInfo.idNo, fundCd, "2") If (dtFundDetails.Rows.Count > 0) Then Dim tbl As New Table() Dim th, th1, th2, th3 As New TableHeaderCell() Dim tr, tr1, tr2, tr3, tr4, tr5, tr6, tr7 As New TableRow() Dim td, td0, td1, td2, td3, td4, td5, td6, td7, td8, td9, td10, td11, td12, td13, td14, td15, td16, td17, td18, td19 As New TableCell() Dim txt, txt1, txt2, txt3 As New TextBox() Dim hdn As New HiddenField() Dim hdn_EPFFundCode As New HiddenField() Dim hdn_Intialnvst As New HiddenField() Dim hdn_SubInvst As New HiddenField() Dim hdn_isInital As New HiddenField() Dim hdn_enteredAmt As New HiddenField() Dim btn As New Button() Dim btn1 As New ImageButton() btn1.ImageUrl = "~/images/delete.png" Dim lbl, lbl1, lbl2, lbl3, lbl4, lbl5, lbl6, lbl7, lbl8, lbl9, lbl10, lbl11, lbl12 As New Label() Dim blankll As New Label() '####################### Top Up Validation hdn_Intialnvst.ID = "hdn_Intialnvst_" + dtFundDetails.Rows(0)("FundCode").ToString.Trim hdn_Intialnvst.Value = dtFundDetails.Rows(0)("Inital_Ivestment").ToString.Trim hdn_SubInvst.ID = "hdn_SubInvst_" + dtFundDetails.Rows(0)("FundCode").ToString.Trim hdn_SubInvst.Value = dtFundDetails.Rows(0)("subsequent_Investment").ToString.Trim If (dt_exsisting.Rows.Count > 0) Then For Each dr_exsistfund As DataRow In dt_exsisting.Rows If (dr_exsistfund.Item("UAccFCd").ToString().Trim = dtFundDetails.Rows(0)("FundCode").ToString.Trim) Then hdn_isInital.ID = "hdn_isInital_" + dtFundDetails.Rows(0)("FundCode").ToString.Trim hdn_isInital.Value = False Exit for Else hdn_isInital.ID = "hdn_isInital_" + dtFundDetails.Rows(0)("FundCode").ToString.Trim hdn_isInital.Value = True End If Next Else hdn_isInital.ID = "hdn_isInital_" + dtFundDetails.Rows(0)("FundCode").ToString.Trim hdn_isInital.Value = True End If tbl.ID = "tbl_" + i.ToString tbl.CssClass = "table table-bordered table-hover table-sortable" lbl.ID = "fundCd_" + i.ToString() lbl.Text = fundCd Dim newDataRow As DataRow = dt_EPFFundCode.NewRow() newDataRow("EPFFundCode") = row("epfFundCode") dt_EPFFundCode.Rows.Add(newDataRow) lbl1.Text = dtFundDetails.Rows(0)("FundName").ToString.Trim lbl1.Width = 500 th.Controls.Add(lbl) th1.Controls.Add(lbl1) btn1.ID = "btnDelete_" + row("epfFundCode") lbl1.CssClass = "bluetitle1 border_table" tbl.Rows.Add(tr) btn1.OnClientClick = "javascript: return btnDelete_Click();" th2.Controls.Add(btn1) tr.CssClass = "thtr" tr.Cells.Add(th) tr.Cells.Add(th1) tr.Cells.Add(th3) tr.Cells.Add(th2) tbl.Rows.Add(tr) tbl.Rows.Add(tr) lbl2.Text = "Prospectus" td1.CssClass = "left" td1.Controls.Add(lbl2) td15.CssClass = "cent" tr1.Cells.Add(td1) tr1.Cells.Add(td2) tr1.Cells.Add(td3) tr1.Cells.Add(td15) tbl.Rows.Add(tr1) lbl5.Text = "Risk Indicator" + ":     " lbl5.Width = 100 lbl6.Text = dtFundDetails.Rows(0)("FundRisk").ToString.Trim blankll.Text = " : " td4.Controls.Add(lbl5) td5.CssClass = "cent" td5.Controls.Add(lbl6) td16.CssClass = "clear" td16.ColumnSpan = "2" tr2.Cells.Add(td4) tr2.Cells.Add(td5) tr2.Cells.Add(td16) tbl.Rows.Add(tr2) lbl7.Text = "NAV (indicative) " lbl7.Width = 100 lbl8.Text = dtFundDetails.Rows(0)("NAV").ToString.Trim td6.CssClass = "left" td6.Controls.Add(lbl7) td7.CssClass = "cent" td7.Controls.Add(lbl8) td17.CssClass = "clear" td17.ColumnSpan = "2" tr3.Cells.Add(td6) tr3.Cells.Add(td7) tr3.Cells.Add(td17) tbl.Rows.Add(tr3) lbl9.Text = "Sales Charge" lbl8.Width = 100 lbl10.Text = Math.Round((CType(row("salesCharge").ToString().Trim, Decimal) * 100), 2, MidpointRounding.AwayFromZero).ToString() + "%" hdn.ID = "salesChg_" + fundCd.ToString().Trim hdn.Value = row("salesCharge").ToString hdn_EPFFundCode.ID = "epfFundCode_" + fundCd.Trim '+ "_" + row("epfFundCode").ToString() hdn_EPFFundCode.Value = row("epfFundCode").ToString() td8.CssClass = "left" td8.Controls.Add(lbl9) td8.Controls.Add(hdn) td8.Controls.Add(hdn_EPFFundCode) td9.CssClass = "cent" td9.Controls.Add(lbl10) td18.CssClass = "clear" td18.ColumnSpan = "2" tr4.Cells.Add(td8) tr4.Cells.Add(td9) tr4.Cells.Add(td18) tbl.Rows.Add(tr4) lbl12.Text = "Amount (RM)" lbl12.Width = 100 td11.CssClass = "left" td11.Controls.Add(lbl12) txt.ID = "txtAmt_" + fundCd.ToString().Trim txt.CssClass = "amt" hdn_enteredAmt.ID = "hdn_enteredAm_" + dtFundDetails.Rows(0)("FundCode").ToString.Trim hdn_enteredAmt.Value = Convert.ToDouble(row("investmentAmount")) txt.Text = String.Format("{0:#,#.00}", Convert.ToDouble(row("investmentAmount"))) txt.Attributes.Add("onchange", "validateInitailSubsequent('" + fundCd.ToString().Trim + "');") td12.ColumnSpan = "3" td12.Controls.Add(txt) td12.Controls.Add(hdn_enteredAmt) td12.Controls.Add(hdn_Intialnvst) td12.Controls.Add(hdn_isInital) td12.Controls.Add(hdn_SubInvst) tr5.Cells.Add(td11) tr5.Cells.Add(td12) tbl.Rows.Add(tr5) td14.ColumnSpan = "4" td14.CssClass = "clear" tr7.Cells.Add(td14) tbl.Rows.Add(tr7) Me.divFund.Controls.Add(tbl) lst.Add(tbl) fundRisk.Add(dtFundDetails.Rows(0)("UFndInvCat").ToString.Trim) End If i = i + 1 Next