Crystal Report 8.5

Anyone familiar with Crystal Reports 8.5?

If so, I need some expert programming assistance.

I am performing a sum of loan amount for group loanrecord.

I am doing a distinct count of the loan records and I get that correct value
but when I sum the loan amount for those loan records, the value is greater than
it should be. I believe it is summing all the duplicate loan records instead of the distinct record.

So I thought to create a formula, like this:

//Sum ({HQBusinnessChannelbyState;1.totalloanamount}, {HQBusinnessChannelbyState;1.loanid},

Local NumberVar i := 0;
Local NumberVar j := 0;

While i = DistinctCount ({HQBusinnessChannelbyState;1.loanid}) do

( If j = 0 Then

j = Sum ({HQBusinnessChannelbyState;1.totalloanamount},{HQ BusinnessChannelbyState;1.loanid});

i := i + 1
);
j

I was thinking that this would only grab those distinct loan records to perform the sum but I'm getting a 0 value now.

Any suggestions?