以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  关于导出日期格式的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26688)

--  作者：liuliu24 --  发布时间：2012/12/12 2:21:00 --  关于导出日期格式的代码 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

--  作者：liuliu24 --  发布时间：2012/12/12 2:32:00 --   dt1.rows(r).IsNull("实际取鞋时间")  第一个问题解决了

--  作者：liuliu24 --  发布时间：2012/12/12 2:46:00 --   Ｏ了，自己解决了