Сравните это:
- Код: Выделить всё
Dim cInvSum, iNumTrans, oInv
For Each oInv In Workarea.Invoices
If oInv.Sum > 0 Then
cInvSum = 0
For iNumTrans = 1 To oInv.TransCount
cInvSum = cInvSum + oInv.Trans(iNumTrans).Sum
Next
End If
Next
и это:
- Код: Выделить всё
Dim aa79ui46, iu9asww07, qq78hert2
For Each qq78hert2 In Workarea.Invoices
If qq78hert2.Sum > 0 Then
aa79ui46 = 0
For iu9asww07 = 1 To qq78hert2.TransCount
aa79ui46 = aa79ui46 + qq78hert2.Trans(iu9asww07).Sum
Next
End If
Next
Второй вариант довольно противно читать... так это простейший код...
Теперь собственно сам вопрос: есть ли программки (или какие-либо другие наработки) по сабжу?
P.S. написал тут а не в ASP т.к. подобный вопрос может коснуться и обычного VB6