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

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编辑过]

sea.er

不用那么麻烦吧
UPDATE 订单明细表 SET 订单明细表.纳品日期= Left([日期],4) & "-" & Mid([日期],5,2) & "-" & Right([日期],2);
这样不行吗

sfhlh

但是导入后要一次转化~一行对一行啊~代码可以简化~但是我如何在导入后一次就全部转化~
我试试看~

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

sea.er

可以，一下子就可以全部转换过来

sfhlh

你看我的代码~
CCC = "D" & Me!XCL
Toing = "A1" & ":" & CCC
Going = Me.strmdwfile
DoCmd.TransferSpreadsheet acImport, 8, "订单明细表", Going, False, Toing
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE 订单明细表 SET 纳品日期 = Left([日期],4) & " - " & Mid([日期],5,2) & " - " & Right([日期],2),编号='" & Forms("订单录入管理").Text01 & "' WHERE  (((纳品日期) Is Null));"
Forms("订单录入管理").List2.Requery
类型不匹配~

[此贴子已经被作者于2004-3-12 9:12:01编辑过]

sfhlh

类型不匹配~
错啊~~~~~~~~

sea.er

你的“纳品日期”和“编号”的数据类型是什么

sfhlh

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

sea.er

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

sea.er

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