Foxtable(狐表)用户栏目专家坐堂 → 动态Datalist的新问题


  共有22063人关注过本帖树形打印复制链接

主题:动态Datalist的新问题

帅哥哟,离线,有人找我吗?
woodiy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:363 积分:2998 威望:0 精华:0 注册:2008/11/11 13:42:00
动态Datalist的新问题  发帖心情 Post By:2009/2/5 19:37:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:未命名.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()

代码出错,麻烦狐老爸看一下,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
菜鸟foxtable
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 菜鸟中的老鸟
等级:七尾狐 帖子:1486 积分:10064 威望:0 精华:9 注册:2008/11/14 8:54:00
  发帖心情 Post By:2009/2/5 20:28:00 [只看该作者]

Dim 省市  As String = e.Form.Controls("TreeView1").Value
这句错了吧

 回到顶部
帅哥哟,离线,有人找我吗?
lxl
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:858 积分:6071 威望:0 精华:19 注册:2008/9/1 9:13:00
  发帖心情 Post By:2009/2/5 23:25:00 [只看该作者]

e.Form.Controls("TreeView1") 就没有Value属性。改成下面试试:
Dim 省市  As String = e.Form.Controls("TreeView1").SelectedNode.Text


 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7237 积分:40614 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2009/2/6 0:53:00 [只看该作者]

Dim 省市  As String ........

      省市后面还多了一个空格?那个空格会不会被视为变量名的一部分?


 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7237 积分:40614 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2009/2/6 0:56:00 [只看该作者]

" & 省市 & "'"

                 这里又没有多那一个空格!

 回到顶部
帅哥哟,离线,有人找我吗?
woodiy
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:363 积分:2998 威望:0 精华:0 注册:2008/11/11 13:42:00
  发帖心情 Post By: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
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/2/6 9:40:00 [只看该作者]

做一个简单的表格,输入一些数据,设计好窗口和代码,然后传上看来看看
[此贴子已经被作者于2009-2-6 9:40:07编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
woodiy
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:363 积分:2998 威望:0 精华:0 注册:2008/11/11 13:42:00
  发帖心情 Post By:2009/2/6 13:51:00 [只看该作者]

这个跟外部数据有关吗?我在本地表上是可以的,但是在SQL外部数据表上就不行,为什么啊

经过测试,这个跟外部SQL数据表有关. 请求帮助,谢谢!
[此贴子已经被作者于2009-2-6 13:56:59编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lxl
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:858 积分:6071 威望:0 精华:19 注册:2008/9/1 9:13:00
  发帖心情 Post By:2009/2/6 13:57:00 [只看该作者]

以下是引用woodiy在2009-2-6 13:51:00的发言:
这个跟外部数据有关吗?我在本地表上是可以的,但是在SQL外部数据表上就不行,为什么啊

外部数据源的话需要指定数据源名称
需要指定SQLCommand的ConnectionName属性

[此贴子已经被作者于2009-2-6 14:03:00编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
woodiy
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:363 积分:2998 威望:0 精华:0 注册:2008/11/11 13:42:00
  发帖心情 Post By: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()


 回到顶部
总数 14 1 2 下一页