Computer Science Canada Vb6 DataGrid Related.. |
| Author: | prinson [ Tue Aug 26, 2008 9:13 am ] |
| Post subject: | Vb6 DataGrid Related.. |
hi. my question is i want to add new row each time on button click event to my datagrid. my datagrid name is dtgEntry: Code Looks like this. Dim r As ADODB.RecordSet Dim lCount As Long Set r = New ADODB.RecordSet If Val(txtQuantity.Text) > 0 And Val(txtRate.Text) > 0 Then r.Fields.Append "Code", adVarChar, 10 r.Fields.Append "Product", adVarChar, 50 r.Fields.Append "Pur. Status", adVarChar, 30 r.Fields.Append "Quantity", adVarChar, 10 r.Fields.Append "Unit", adVarChar, 15 r.Fields.Append "Pieces", adVarChar, 15 r.Fields.Append "Rate Per.", adVarChar, 20 r.Fields.Append "Rate", adVarChar, 10 r.Fields.Append "Amount", adVarChar, 30 r.Fields.Append "Godown", adVarChar, 50 r.CursorType = adOpenDynamic r.Open r.AddNew r.Fields(0).Value = txtProductCode.Text r.Fields(1).Value = cboShortCode.Text r.Fields(2).Value = cboStatus.Text r.Fields(3).Value = txtQuantity.Text r.Fields(4).Value = cboUnit.Text r.Fields(5).Value = txtPieces.Text If cboRatePerQuantity.Text = "QTY" Then r.Fields(6).Value = "Q" Else r.Fields(6).Value = "P" End If r.Fields(7).Value = txtRate.Text txtReturnAmount.Text = Format$(Val(txtQuantity.Text) * Val(txtRate.Text), "#0.00") r.Fields(8).Value = txtReturnAmount.Text r.Fields(9).Value = cboGodownName.Text r.AddNew Dim i As Integer i = dtgEntry.Row --> The problem is here. If i > 0 Then For i = 0 To dtgEntry.Row - 1 If dtgEntry.RecordSelectors = True Then dtgEntry.Row = i dtgEntry.Col = i dtgEntry.SetFocus r.Fields(0).Value = Val(dtgEntry.Columns(0)) r.Fields(1).Value = dtgEntry.Columns(1) r.Fields(2).Value = dtgEntry.Columns(2) r.Fields(3).Value = Val(dtgEntry.Columns(3)) r.Fields(4).Value = dtgEntry.Columns(4) r.Fields(5).Value = Val(dtgEntry.Columns(5)) r.Fields(6).Value = dtgEntry.Columns(6) r.Fields(7).Value = Val(dtgEntry.Columns(7)) r.Fields(8).Value = Val(dtgEntry.Columns(8)) r.Fields(9).Value = dtgEntry.Columns(9) r.AddNew End If Next End If Set dtgEntry.DataSource = r 'txtTotalQty.Text = Format$(txtQuantity.Text, "#0") 'Line1: 'Line2: txtPurchase.Text = Val(txtPurchase) + Val(txtReturnAmount) If cboPurchaseNo.Text <> "" Then txtPurchase.Text = Val(GrossTot) End If If cboParty.Text <> "" Then txtPurchase.Text = Val(GrossTot) End If txtTotalQty.Text = Val(txtTotalQty) + Val(txtQuantity) If cboPurchaseNo.Text <> "" Then txtTotalQty.Text = Val(TotQty) End If txtNetAmountRs.Text = Format$(Val(txtPurchase.Text) + Val(txtExciseRs.Text) - Val(txtDiscountRs.Text) + Val(txtAddLessRs.Text) + Val(txtTaxRs.Text) + Val(txtSurchargeRs.Text), "#0.00") Else MsgBox "Please enter appropriate quantity and rate!!" End If ----------------------------- The Problem is i = dtgEntry.Row here. After i add three rows and try to add some more than i returns 0 even though there are rows available in datagrid. I want to add more rows in datagrid without any limit. |
|