Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共5 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:日期列的奇怪现象...是BUG吗?2月1日的版本是没问题的.

1楼
菜鸟foxtable 发表于:2009/2/24 12:56:00

大家下载这下面的实例执行如下代码...
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:38:33编辑过]
2楼
菜鸟foxtable 发表于:2009/2/24 13:09:00
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看
[此贴子已经被作者于2009-2-24 13:19:57编辑过]
3楼
狐狸爸爸 发表于:2009/2/24 14:05:00

我看看去也

4楼
菜鸟foxtable 发表于:2009/2/24 14:20:00
图片点击可在新窗口打开查看老爹,这可是大问题啊...希望晚上能看到更新....
5楼
狐狸爸爸 发表于:2009/2/24 14:51:00
已经搞定,下次更新不会有的了。
共5 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .07031 s, 3 queries.