25 lines
461 B
Plaintext
25 lines
461 B
Plaintext
Compile function Test_Kevin(VOID)
|
|
|
|
Ans = 0
|
|
MaxKey = ""
|
|
|
|
Open "PM_HIST" to hTable then
|
|
ClearSelect
|
|
Select hTable
|
|
Done = 0
|
|
Loop
|
|
ReadNext Key else Done = 1
|
|
Until Done
|
|
Read Rec from hTable, Key then
|
|
Count = DCount(Rec, @VM)
|
|
If Count GT Ans then
|
|
Ans = Count
|
|
MaxKey = Key
|
|
end
|
|
end
|
|
Repeat
|
|
end
|
|
|
|
Ans = MaxKey:" - ":Ans
|
|
Return Ans
|