两个日期型字段相互赋值问题(100分)

J

jxj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-20

• #1

我现在有两个表：Ａ、Ｂ。SQL7.0
Ａ表有一字段为：预抵日期：为smalldatetime类型
ｂ表有一字段为：到达日期：为smalldatetime类型。

我现在用Ａ表的字段给Ｂ表赋值。
b.edit;
b.fieldbyanem('到达日期').asdatetime:=a.fieldbyname('预抵日期').asdatetiem;
b.post;

如果Ａ表的预抵日期不为空，那么程序没有错误。
如果Ａ表的预抵日期为空（ＮＵＬＬ），那么程序会出现如下错误：

 

冰

冰川

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-20

• #2

判断一下阿：
if trim(a.fieldbyname('预抵日期').asdatetiem)='' then
exit;//即不复制

 

L

liamy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-20

• #3

A的日期为空，则delphi中用asdatetime做类型转换时自然会认为是不合法的日期，而产生异常。
我想，这类情况应该用条件语句判断，做特殊处理，即：为空时....
不为空时；try
b.fieldbyanem('到达日期').asdatetime:=
a.fieldbyname('预抵日期').asdatetime //判日期是否合法
except
showmessage('日期不合法'）//当然此处日期从表中而来，应该不会不合法。
end;

 

W

wind_cloudy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-20

• #4

同意liamy
也可以这样写
if not a.fieldbyname('预抵日期').isnull then
b.fieldbyanem('到达日期').asdatetime:=
a.fieldbyname('预抵日期').asdatetime;

 

冰

冰川

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-20

• #5

没看清楚是null,抱歉，还有我的语法错误：asdatetime 变成asstring;

 

左

左右手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-20

• #6

你在SQL SERVER中是不是将B表的该字段设为不允许空了，如果是这样，则当你给它赋值
时就会出错

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-21

• #7

b.fieldbyanem('到达日期'). Value :=a.fieldbyname('预抵日期').Value

或者

b.fieldbyanem('到达日期'). Assign( a.fieldbyname('预抵日期') )

不用考虑null

 

W

windpray

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-21

• #8

同意PIPI

 

W

wumeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-21

• #9

g:liamy and pipi

 

J

jxj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-22

• #10

多谢各位。