the mouse cursor is still focusing in the DisNet5 for every column.
I dont know why its focusing eventhough i used the oform.freeze(true) before computing.
this is my updated cood code:
For i As Integer = 1 To oMatrix.VisualRowCount
oForm.Freeze(True)
Dim itemcode As String = oMatrix.Columns.Item("1").Cells.Item(i).Specific.value.ToString
If (itemcode = "" Or itemcode.Length = 0) Then
oMatrix.Columns.Item("1").Cells.Item(i).Specific.value = ""
oForm.Freeze(False)
Exit For
End If
Dim Quantity As Integer = oMatrix.Columns.Item("11").Cells.Item(i).Specific.value.ToString
Dim Price As Decimal = oMatrix.Columns.Item("14").Cells.Item(i).Specific.value.ToString
Dim Total As Decimal = Quantity * Price
Dim DiscRate1 As Decimal = oMatrix.Columns.Item("U_DiscRate1").Cells.Item(i).Specific.value.ToString
Dim DiscAmt1 As Decimal
Dim DiscNet1 As Decimal
If (DiscRate1 > 0) Then
DiscAmt1 = DiscRate1 * Total
DiscNet1 = Total - DiscAmt1
oMatrix.Columns.Item("U_DiscAmt1").Cells.Item(i).Specific.value = DiscAmt1
oMatrix.Columns.Item("U_NetAmt1").Cells.Item(i).Specific.value = DiscNet1
Else
DiscAmt1 = 0
DiscNet1 = 0
oMatrix.Columns.Item("U_DiscAmt1").Cells.Item(i).Specific.value = DiscAmt1
oMatrix.Columns.Item("U_NetAmt1").Cells.Item(i).Specific.value = DiscNet1
End If
'code here is for computing Discounts for 2 to 4. i didnt copy the code here because its too long to read. the syntax for discout 2 - 4 is same wtith Discount 1 ^
Dim DiscRate5 As Decimal = oMatrix.Columns.Item("U_DiscRate5").Cells.Item(i).Specific.value.ToString
Dim DiscAmt5 As Decimal
Dim DiscNet5 As Decimal
If (DiscRate5 > 0 And DiscRate4 > 0 And DiscRate1 > 0 And DiscRate2 > 0 And DiscRate3 > 0) Then
DiscAmt5 = DiscNet4 * DiscRate5
DiscNet5 = DiscNet4 - DiscAmt5
oMatrix.Columns.Item("U_DiscAmt5").Cells.Item(i).Specific.value = DiscAmt5
oMatrix.Columns.Item("U_DiscNet5").Cells.Item(i).Specific.value = DiscNet5
Else
DiscAmt5 = 0
DiscNet5 = 0
oMatrix.Columns.Item("U_DiscAmt5").Cells.Item(i).Specific.value = DiscAmt5
oMatrix.Columns.Item("U_DiscNet5").Cells.Item(i).Specific.value = DiscNet5
End If
oForm.Freeze(False)
Next