双击数据库控件如ADOTable 在弹出的窗口中右键->Add All Fields-> 然后设置你要改变的字段的OnGetText事件。procedure TForm1.ADOTable1clickGetText(Sender: TField; var Text: String; DisplayText: Boolean); begin Text := IntToStr(TField(Sender).AsInteger div 2); //把这个字段/2后显示。你哪做法也一样。 DisplayText := true; end;
双击数据库控件如ADOTable 在弹出的窗口中右键->Add All Fields-> 然后设置你要改变的字段的OnGetText事件。procedure TForm1.ADOTable1clickGetText(Sender: TField; var Text: String; DisplayText: Boolean); begin Text := IntToStr(TField(Sender).AsInteger div 2); //把这个字段/2后显示。你哪做法也一样。 DisplayText := true; end;
lsk2000(重构疯子)兄,由于小弟结构已经定好,而且老板认为float型更合理,所以小弟也不好改为string
magc888(繁星)兄,那报表显示的也和datagrid一样,我改如何作,
不过先谢过各为大哥!!!!!请赐教!!!!!!!!
2。在报表中,建议你格式化后将数据batchmove到临时表进行显示
在弹出的窗口中右键->Add All Fields-> 然后设置你要改变的字段的OnGetText事件。procedure TForm1.ADOTable1clickGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text := IntToStr(TField(Sender).AsInteger div 2); //把这个字段/2后显示。你哪做法也一样。
DisplayText := true;
end;
在弹出的窗口中右键->Add All Fields-> 然后设置你要改变的字段的OnGetText事件。procedure TForm1.ADOTable1clickGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text := IntToStr(TField(Sender).AsInteger div 2); //把这个字段/2后显示。你哪做法也一样。
DisplayText := true;
end;