我现有一个*.dbf的表格式为:
人员编号 日期 姓名 上班1 下班1 上班2 下班2
01 2003-5-01 小张 08:30:05 12:00:01 13:49:00 18:00:01
02 2003-5-01 小彬 08:31:05 12:10:01 13:45:00 18:10:01
01 2003-5-02 小张 08:32:05 12:00:01 13:49:00 18:00:01
02 2003-5-02 小彬 08:30:05 12:00:01 13:49:00 18:00:01
现要把它转换为Access的数据,且格式为:
人员编号工 姓名 五月1日 五月2日
01 小张 08:30:05-12:00:01-13:49:00-18:00:01 08:32:05-12:00:01-13:49:00-18:00:01
02 小彬 08:30:05-12:00:01-13:49:00-18:00:01 08:30:05-12:00:01-13:49:00-18:00:01请问我要如何实现。。,请给点提示。谢谢!
人员编号 日期 姓名 上班1 下班1 上班2 下班2
01 2003-5-01 小张 08:30:05 12:00:01 13:49:00 18:00:01
02 2003-5-01 小彬 08:31:05 12:10:01 13:45:00 18:10:01
01 2003-5-02 小张 08:32:05 12:00:01 13:49:00 18:00:01
02 2003-5-02 小彬 08:30:05 12:00:01 13:49:00 18:00:01
现要把它转换为Access的数据,且格式为:
人员编号工 姓名 五月1日 五月2日
01 小张 08:30:05-12:00:01-13:49:00-18:00:01 08:32:05-12:00:01-13:49:00-18:00:01
02 小彬 08:30:05-12:00:01-13:49:00-18:00:01 08:30:05-12:00:01-13:49:00-18:00:01请问我要如何实现。。,请给点提示。谢谢!
也就是,字段固定。
其中人员编号和姓名从另一个表中得来。
查找*。dbf中的人员编号是否有相应的日期且把相应的时间写入。请问可以实现吗?
while not 人员表.eof do
begin
select * from 表名 where 编号=01 order by 日期 (在一个数据集里了)
while not 数据集.eof do
begin
(用ADO 的控件联接ACCESS数据库)
ADODataset.append;
ADODataSet.fieldbyname('编号').asstring=数据集.fieldbyname('编号').asstring;
ADODataSet.fieldbyname('姓名').asstring=数据集.fieldbyname('姓名').asstring;
ADODataSet.fieldbyname('五一').asstring=数据集.fieldbyname('上班1').asstring+ 数据集.fieldbyname('下班1').asstring+数据集.fieldbyname('上班2').asstring+数据集.fieldbyname('下班2').asstring;
。
。
。
next;
end;
next;
end