Dim dt1 As Table = Tables("订单") '打开表
Dim St2 As XLS.Style = Book.NewStyle
St2.Format = "yyyy-MM-dd"
For r As Integer = 0 To dt1.Rows.Count - 1 '填入数据
Sheet1(r +1, 0).Value = dt1.rows(r)("订单编号")
If dt1.rows(r)("实际时间") Is Nothing Then
Sheet1(r +1, 1).Value=""
Else
Sheet1(r +1, 1).Style=st2
Sheet1(r +1, 1).Value = dt1.rows(r)("实际时间")
End If
Sheet1(r +1, 2).Value = dt1.rows(r)("数量")
Sheet1(r +1, 3).Value = dt1.rows(r)("结算金额")
Sheet1(r +1, 4).Value = dt1.rows(r)("订单状态")
Sheet1(r +1, 5).Value = dt1.rows(r)("会员编号")
Next
这个时间倒出来，如果是空的会默认为1900-1-0，怎么样可以让它为空值
还有格式能否变成2012-02-02这样的格式，我的是2012-2-2
加好友 
发短信
Post By：2012/12/12 2:21:00 [只看该作者]
