- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 日期列的奇怪现象...是BUG吗?2月1日的版本是没问题的. (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=1917)
-- 发布时间：2009/2/24 12:56:00
-- 日期列的奇怪现象...是BUG吗?2月1日的版本是没问题的.
大家下载这下面的实例执行如下代码...
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select 编号,姓名,日期 from {表AA}"
dt = cmd.ExecuteReader() \'生成一个临时表
Dim str as string = dt.DataRows(1)("日期")
Output.show(str)
只要是日期列就会出错.如果是字符列则没问题.比如:dt.DataRows(1)("姓名") 下载信息 [文件大小： 下载次数： ] 
点击浏览该文件:日期列测试.table
Dim doc As New PrintDoc
Dim rt As New prt.RenderTable
Dim cmd As New SQLCommand \'定义一个SQL命令
cmd.C
Dim dt As DataTable \'定义一个数据表变量
Dim Count As Integer = 0
cmd.CommandText = "Select 住院号,姓名,入院诊断 from [H_ZYXX]"
dt = cmd.ExecuteReader() \'生成一个临时表
For Each Col AS DataCol In Dt.DataCols
rt.Cells(0,Count).Text = Col.Name
For r As integer = 0 To dt.DataRows.Count - 1
rt.Cells(r +1,Count).Text = dt.DataRows(r)(Col.Name)
Next
Count = Count + 1
Next
rt.Style.Gridlines.All = New prt.Linedef(Color.Gray) \'灰色网格线
rt.CellStyle.Spacing.All = 1 \'内容距离网格线1毫米
rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'第一行内容水平居中
doc.Body.Children.Add(rt)
doc.Preview()
留意红色部分代码.....只要添加日期列,就会报错!!!比如:Select 住院号,姓名,入院日期 from [H_ZYXX]"
记得之前是不会这样的啊?
外部表日期列设置图:
此主题相关图片如下：001.jpg
居然提示找不到外部表...此主题相关图片如下：002.jpg
此主题相关图片如下：003.jpg
-- 发布时间：2009/2/24 13:09:00
--
-- 发布时间：2009/2/24 14:05:00
--
我看看去也
-- 发布时间：2009/2/24 14:20:00
--
老爹,这可是大问题啊...希望晚上能看到更新....
-- 发布时间：2009/2/24 14:51:00
--
已经搞定，下次更新不会有的了。