Alex404 » 25.06.2003 (Ср) 22:51
Вопрос еще в том настаиваешь ли ты чтобы решение было реализовано исключительно средствами SQL. Если нет то сформировав запрос включающий суммы каждого поля (это если они числовые)
sql="SELECT SUM(поле1) as п1,...SUM(ПолеN) as пN FROM Таблица "
кстати если не числовые тоже небеда:
sql="SELECT SUM(iif(поле1<>'',1,0)) as п1,...SUM(iif(полеN<>'',1,0)) as пN FROM Таблица "
пробегаешь по ПОЛЯМ полученного рекордсета (Set RS=База.OpenRecordset( sql) ) параллельно формируя строку для последнего и решающего запроса
strSQL="SELECT "
For n=1 to RS.Fields.Count
if RS.Fields(n)>0 then strSQL=strSQL & " Поле" & n & ","
next
strSQL=ФункцияОтрезкиПоследнейЗапятой(strSQL) & " FROM Таблица "
Вот запросик и создан...
Коряво правда, но сработает .