Вывод четырехэтажной дроби (для высотных отметок например):538/536/535/531 - это будет в столбик...
Причем учитывается есть 4число, если нет то будет 3-х этажныя дробь...
[№1], [№2], [№3], [№4] - поля таблицы
Function FindLabel ( [№1], [№2], [№3], [№4] )
l1 = ""
l2 = ""
l3 = ""
l4 = ""
if [№4]<>" " then
l1 = "<UND>"&[№1]&"</UND>"&vbNewLine
l2 = "<UND>"&[№2]&"</UND>"&vbNewLine
l3 = "<UND>"&[№3]&"</UND>"&vbNewLine
l4 = [№4]
End If
if [№4] =" " then
l1 = "<UND>"&[№1]&"</UND>"&vbNewLine
l2 = "<UND>"&[№2]&"</UND>"&vbNewLine
l3 = [№3]
l4 = ""
End If
if [№3]=" " then
l1 = "<UND>"&[№1]&"</UND>"&vbNewLine
l2 = [№2]
l3 = ""
l4 = ""
End If
if [№2]=" " then
l1 = [№1]
l2 = ""
l3 = ""
l4 = ""
End If
FindLabel = l1 + l2 + l3 + l4
End Function