以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  sql executereader()疑问  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92285)

--  作者:fox-man
--  发布时间:2016/10/31 11:09:00
--  sql executereader()疑问
sql executereader()疑问

/

Dim cmd As New SQLCommand
Dim dtm As DataTable
cmd.C
cmd.CommandText = "Select distinct  区域,省市,县市 f rom 行政区域 "
dtm = cmd.ExecuteReader()
Tables("窗口_Table1").DataSource = "dtm" 


/

为什么窗口中的表中没有数据呢?

--  作者:cbt
--  发布时间:2016/10/31 11:28:00
--  
 
Tables("窗口_Table1").DataSource = "dtm"

改成


Tables("窗口_Table1").DataSource = dtm

--  作者:fox-man
--  发布时间:2016/10/31 11:44:00
--  

Public dtm As DataTable

然后在项目事件AfterOpenProject中设置代码,将生成的DataTable赋值给此变量:

Dim cmd As New SQLCommand

Dim dtm As DataTable
cmd.C
cmd.CommandText = "Select distinct  区域,省市,县市 f rom 行政区域 "
dtm = cmd.ExecuteReader()

Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
Chart.SeriesList2.Clear()
Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.AxisX.AnnoRotation =  25 \'X轴标示逆时针旋转45度
Chart.ChartType = ChartTypeEnum.xyplot
Chart.DataSource = "dtm"
......


显示空图,图表不能绑定全局代码中的表吗??
[此贴子已经被作者于2016/10/31 11:47:26编辑过]

--  作者:fox-man
--  发布时间:2016/10/31 14:17:00
--  
求回复!
--  作者:lmlptj
--  发布时间:2016/10/31 21:09:00
--  
关键字Distinct,将所有后面的字段设成唯一值!所以查不到数据,你去掉后面两个字段试试?
--  作者:有点蓝
--  发布时间:2016/10/31 21:18:00
--  
Chart不能直接绑定到临时表,先绑定到窗口Tables("窗口_Table1").DataSource = dtm

然后Chart.DataSource = "窗口_Table1"