formula自定义函数(100分)

W

wq58

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-03

• #1

自定义函数GetName(ID,TableName)从数据库取数据
在单元格输入GetName(1,Employee)就能通过函数读出对应字段EmployeeName
请问如何实现？
最好有源码，ADD_IN的具体用法，分不够在加

 

小

小刚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-03

• #2

这个好像有点难度，请看我回答的这个帖：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1989557

 

W

wq58

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-03

• #3

你的这个不符合要求的
不能在用户想写的单元格随便输入，因为单元格式随意的，而且不能让用户写代码吧？

 

T

thx1180

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #4

function GetName(ID: Integer;
TableName: string): string;
begin
Result := False;
with TQuery.Create(nil)do
try
SQL.Clear;
SQL.Text := 'select Name from ' + TableName + ' where ID = ' + IntToStr(ID);
Open;
if not IsEmpty then
Result := FieldValues['Name'];
finally
Free;
end;
end;

 

小

小刚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #5

楼上：楼主要的是在单元格里象Excel那样输入公式＝GetName(1,Employee)就能够将数据插入单元格。我想这个不是很容易做到。

 

W

wq58

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #6

请教在formula one 控件中调用 ADDIN 函数的方法

 

W

wq58

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-07

• #7

我已经解决了，结贴