很头病的问题~看你遇见过没~有图

sfhlh

把红色圈中的栏位，数值型对印转化为日期型值到蓝色圈中的栏位，红色中的数据是从EXCEL中导入的（客户下的订单没法让数据源改变）。
头病的问题是如何在导入后成批的将数据改换，我用了一个笨办法但是要一行一行更新
太痛苦了~
dateID = Left((DLookup("[F3]", "订单明细表", "[id] like '" & Me.List2.Column(0) & "'")), 4) & "-" & Mid((DLookup("[F3]", "订单明细表", "[id] like '" & Me.List2.Column(0) & "'")), 5, 2) & "-" & Right((DLookup("[F3]", "订单明细表", "[id] like '" & Me.List2.Column(0) & "'")), 2)
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE 订单明细表 SET 纳品日期 = '" & dateID & "',编号='" & Me.Text01 & "' WHERE ID like " & Me.List2.Column(0) & ""
List2.Requery
如果有经验的大大有办法请加我的MSN-SFHLH@MSN.COM

[此贴子已经被作者于2004-3-12 8:38:30编辑过]

NeilChen

纳品日期 =Cvdate(Left([日期],4)....................................

sfhlh

我用了另一种方法~先建立一个查询，
SELECT (Left([F3],4)) & "/" & (Mid([F3],5,2)) & "/" & (Right([F3],2)) AS 纳品日期, 订单明细表.F2
FROM 订单明细表;
然后在导入后面写一句：
DoCmd.RunSQL "UPDATE 订单明细表 INNER JOIN dateID ON 订单明细表.F2 = dateID.F2 SET 订单明细表.纳品日期 = dateID!纳品日期 WHERE (((订单明细表.纳品日期) Is Null));"
搞定~
谢谢大大~你的方法我在试试~

swx

Left([日期],4) & " - " & Mid([日期],5,2) & " - " & Right([日期],2)
出来的是字符串的格式，与日期格式不匹配。可用以下函数来完成。
DateSerial Left([日期],4) , Mid([日期],5,2) , Right([日期],2))
另外可在查询等处来完成，在表内不需要存这多余的字段。

sfhlh

传上来了~9999

sfhlh

恩~

sfhlh

好~

sea.er

还不行的话如果方便的话，把你的库传上来让大家帮你看看

sea.er

你把“纳品日期”改成文本试试

sfhlh

纳品日期是date
编号是文本
我把编号去掉还是“类型不匹配”。晕~~~