求教，急急急！！！！(50分)

张

张无极

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #1

procedure TForm1.Button1Click(Sender: TObject);

begin
table1.open;

table1.Edit;
table1.First;
while not table1.Eof do
begin

table1.Fields[2].asstring:=copy(table1.fields[2].AsString,1,10);//fields[2]是日期型
table1.Next;
end;
table1.close;
showmessage('完成');

end;
运行时总是提示"table1:dataset not in edit or insert mode."
请大侠指点！

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #2

begin
table1.open;
table1.First;
while not table1.Eof do
begin
table1.Edit;
table1.Fields[2].asstring:=copy(table1.fields[2].AsString,1,10);//fields[2]是日期型
table1.post;
table1.Next;
end;
table1.close;
showmessage('完成');


试试

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #3

table1.Edit;////进入编辑状态
table1.Fields[2].asstring:=copy(table1.fields[2].AsString,1,10);
table1.post;///提交

 

春

春意

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #4

begin
table1.open;
table1.First;
table1.Edit;
while not table1.Eof do
begin
table1.Fields[2].asstring:=copy(table1.fields[2].AsString,1,10);//fields[2]是日期型
table1.Next;
end;
table1.post;
table1.close;
showmessage('完成');

 

Y

y2ky2k

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #5

问题：求教，急急急！！！！ ( 积分：50, 回复：3, 阅读：18 )
分类：数据库-文件型 ( 版主：hbezwwl, 吴剑明 )
来自：张无极, 时间：2002-11-29 13:07:00, ID：1471018 [显示：小字体 | 大字体]
procedure TForm1.Button1Click(Sender: TObject);

begin
table1.open;
table1.First;
while not table1.Eof do
begin
table1.Edit;//这行...
table1.Fields[2].asstring:=copy(table1.fields[2].AsString,1,10);//fields[2]是日期型
table1.Next;
end;
tabel1.post;//这行...
table1.close;
showmessage('完成');

end;

 

张

张无极

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #6

首先感谢各位兄弟的指点，不过不行啊，我的机器已死了无数次机了，急急啊，

 

S

shbjkl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #7

table1.Fields[2].asdatetime:=strtodate(copy(table1.fields[2].AsString,1,10));//fields[2]是日期型

 

S

shbjkl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #8

你想干什么？

 

晴

晴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #9

这样看看呢：
table1.Edit;
table1.Fields[2].AsDateTime:=strtodate(datetostr(table1.fields[2].AsDateTime));
table1.post;

 

晴

晴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #10

你是不是想把fields[2]的内容改为只有日期，没有具体时间呢？
如果是这样的话，就没有必要了。
数据库中会自动为你添加时间的，如果输入时你只有日期。
只要在读取时处理一下就可以了。

 

S

shbjkl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #11

to :up
table1.Fields[2]:=strtodate(datetostr(table1.fields[2]..AsDateTime));
肯定不行；
table1.fields[2].asxxx:=tabel1.fields[2].asxxx;干什么呀；

 

S

shbjkl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #12

to 晴：
有办法的，如果用的是datetimepicker把它的time属性里的东东删除就可。
它会显示0：00：00就不会影响到处理数据了