- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 动态Datalist的新问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1742)
-- 发布时间：2009/2/5 19:37:00
-- 动态Datalist的新问题
此主题相关图片如下：未命名.jpg
左边的目录树, 后面是动态的Datalist
实现目标: 双击左边的省市, 右边的Datalist动态显示相关省市的客户
我设置了NodeMouseDoubleClick的代码如下:
Dim 省市 As String = e.Form.Controls("TreeView1").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select * From {客户} Where [省市] = \'" & 省市 & "\'"
dt = cmd.ExecuteReader() \'生成统计表
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = dt
dst.Build()
代码出错,麻烦狐老爸看一下,谢谢!
-- 发布时间：2009/2/5 20:28:00
--
Dim 省市 As String = e.Form.Controls("TreeView1").Value
这句错了吧
-- 发布时间：2009/2/5 23:25:00
--
e.Form.Controls("TreeView1") 就没有Value属性。改成下面试试：
Dim 省市 As String = e.Form.Controls("TreeView1").SelectedNode.Text
-- 发布时间：2009/2/6 0:53:00
--
Dim 省市 As String ........
省市后面还多了一个空格？那个空格会不会被视为变量名的一部分？
-- 发布时间：2009/2/6 0:56:00
--
" & 省市 & "\'"
这里又没有多那一个空格！
-- 发布时间：2009/2/6 9:00:00
--
现在我设置成这样,可是双击节点以后,Datalist中未出现任何数据,帮忙再看一下,谢谢!
Dim 省市 As String = e.Form.Controls("TreeView1").SelectedNode.Text
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select * From {客户} Where [省市] = \'" & 省市 & "\'"
dt = cmd.ExecuteReader() \'生成统计表
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = dt
dst.Build()
此主题相关图片如下：未标题-2.jpg
-- 发布时间：2009/2/6 9:40:00
--
做一个简单的表格，输入一些数据，设计好窗口和代码，然后传上看来看看
[此贴子已经被作者于2009-2-6 9:40:07编辑过]
-- 发布时间：2009/2/6 13:51:00
--
这个跟外部数据有关吗?我在本地表上是可以的,但是在SQL外部数据表上就不行,为什么啊
经过测试,这个跟外部SQL数据表有关. 请求帮助,谢谢!
[此贴子已经被作者于2009-2-6 13:56:59编辑过]
-- 发布时间：2009/2/6 13:57:00
--
以下是引用woodiy在2009-2-6 13:51:00的发言：
这个跟外部数据有关吗?我在本地表上是可以的,但是在SQL外部数据表上就不行,为什么啊
这个跟外部数据有关吗?我在本地表上是可以的,但是在SQL外部数据表上就不行,为什么啊
外部数据源的话需要指定数据源名称
需要指定SQLCommand的ConnectionName属性
[此贴子已经被作者于2009-2-6 14:03:00编辑过]
-- 发布时间：2009/2/6 15:01:00
--
能提示一下吗?
Dim 省市 As String = e.Form.Controls("TreeView1").SelectedNode.Text
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select * From {客户} Where [省市] = \'" & 省市 & "\'"
dt = cmd.ExecuteReader() \'生成统计表
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = dt
dst.Build()