OLE-Fox (663308), страница 3
Текст из файла (страница 3)
oSum.ProcSuitmiary(.T.)
? oSum.Sum_paid
oSum.РrосSummary(.F.)
?oSum.Sum_paid
На экране вы увидите полученный результат.
Широкие возможности использования OLE-сервера Visual FoxPro заключаются в управлении им из любой другой программы, поддерживающей OLE Automation. Например, те же действия мы можем выполнить из Excel, используя следующую процедуру:
Sub mysub()
Dim sum_obj As Object
Set sum_obj = CreateObject("ole_sum.sum_table")
sum_obj.ProcSummary True
Sheets("Лист1").Cells(1,1).Value = sum_obj.Sum_paid
End Sub
Процедура поместит значение суммы в первую ячейку на первый лист Excel. Этот простейший пример наглядно показывает возможности OLE-сервера Visual FoxPro, который может играть роль сервера данных в небольшой компьютерной сети, там, где не требуется вся мощь таких серверов БД, как SQL Server или Oracle.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
