Соединить 3 столбца в 1

@Gantzer61 · Регистрация: 11.12.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте. Помогите решить одну проблему. У меня в таблице Access есть 3 поля (Фамилия, Имя, Отчество), можно ли как нибудь при выводе этих столбцов в Grid объединить их в один столбец примерно так Сидоров С.С. для того чтобы с экономить место в Gride. По возможности чтобы в базу не надо было добавлять или наоборот изменять столбцы, надо как то это сделать через Delphi не изменяя базу. Просто у меня уже программа почти готова, а глобальные изменения приведут к много часовым изменениям.

@FIL · 18.02.2013, 22:56

Можно попробовать такой вариант (сам не проверял):

Delphi

procedure TDM.Table1фиоGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  Text := фам.Value + ' ' + имя.Value[1] + '.' + отч.Value[1] + '.';
end;

http://delphiworld.narod.ru/ba... ample.html

@Gantzer61 · 18.02.2013, 23:25 **[ТС]**

Спасибо gorfil, работает.

Delphi

procedure TDataModule2.sqllgotnikiDataSet1namelgoGetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
begin
Text := sqllgotnikiDataSet1.FieldByName('famlgo').AsString + ' ' + sqllgotnikiDataSet1.FieldByName('namelgo').AsString[1] + '.' + sqllgotnikiDataSet1.FieldByName('otchlgo').AsString[1] + '.';
end;
end.

@Gantzer61 6 / 6 / 4 Регистрация: 11.12.2011 Сообщений: 142
		1
	Соединить 3 столбца в 1 18.02.2013, 22:36. Показов 1340. Ответов 2 Метки нет (Все метки) Здравствуйте. Помогите решить одну проблему. У меня в таблице Access есть 3 поля (Фамилия, Имя, Отчество), можно ли как нибудь при выводе этих столбцов в Grid объединить их в один столбец примерно так Сидоров С.С. для того чтобы с экономить место в Gride. По возможности чтобы в базу не надо было добавлять или наоборот изменять столбцы, надо как то это сделать через Delphi не изменяя базу. Просто у меня уже программа почти готова, а глобальные изменения приведут к много часовым изменениям. 0

	18.02.2013, 23:25

Соединить 3 столбца в 1

Решение