Problemas com o campo virtual

[Cassiano Vellames_201385 0]

Oi pessoal, eu to com um problema com meu campo virtual. Ele simplismente nao aparece, rsrs. Vamos as informações:

Primeiro de tudo é que to salvando o projeto no Dropbox que é um serviço da nuvem, então nao sei se esse pode ser o problema.

Eu tenho um formulário de dados das maquinas dos clientes, um deles é a empresa a qual o computador pertence, ai que vem o problema

Eu criei um LookUpComboBox para o usuario poder selecionar a empresa que ja esta cadastrada em outro formulario, ela ta listando normalmente, porem quando o usuario escolhe a empresa o que aparece na tabela é o codigo da empresa, sendo assim eu criei um campo virtual com as seguintes configurações:

Nome: Empresa

Type: String

Size: 30

LookUp

Key Field: "DAC_EMP"(seria o campo onde aparece a empresa a qual o computador pertence)

Dataset: "tbl_empresa" (nome da tabela onde estao armazenadas as empresa)

Lookup Keys: "EMP_COD" (é onde coloco o codigo de cada empresa, que tambem uso como campo chave)

Result Field: "EMP_NOME" (dentro da tabela de empresas é onde fica armazenado o nome das empresas)

Ai eu coloquei ela no DBGrid direitinho, mas quando eu seleicono uma empresa no meu ComboBox, o campo virtual nao é preenchido no meu DBGrid, esse é o problema, alguem pode me ajudar?

Espero que tenha dado pra entender, de todas as formas eu também vou deixar o codigo do Formulario

 

 

 

unit UDadosEmpresas;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, IBCustomDataSet, IBTable, DBCtrls, StdCtrls, Mask, ExtCtrls,

Grids, DBGrids;

type

TFormDadosEmpresas = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

tbl_auxdadosempresas: TIBTable;

tbl_auxdadosempresasDAC_COD: TIntegerField;

DBEdit5: TDBEdit;

DBLookupComboBox1: TDBLookupComboBox;

procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormDadosEmpresas: TFormDadosEmpresas;

implementation

uses UDM_Dados;

{$R *.dfm}

procedure TFormDadosEmpresas.DBNavigator1Click(Sender: TObject;

Button: TNavigateBtn);

var ultcod:integer;

begin

if dm_dados.ds_dadosempresas.State in [dsInsert] then

begin

tbl_auxdadosempresas.open;

tbl_auxdadosempresas.last;

ultcod:=tbl_auxdadosempresasDAC_COD.Value+1;

dm_dados.tbl_dadosempresasDAC_COD.Value:=ultcod;

tbl_auxdadosempresas.close;

end;

end;

end.

 

[Roberto Fagundes 40]

tbl_auxdadosempresas.last;

 

Nesta linha você está indo para o ultimo registro, é isso mesmo que você quer que aconteça?

[Cassiano Vellames_201385 0]

Opa, desculpa a demora de responder. Esse codigo é referente a outra coisa, eu criei um modo em que o usuario que for cadastrar algo nao vai precisar ficar digitando o codigo manualmente, o mesmo é gerado de forma automatica.