[浏览完整版]
标题：动态Datalist的新问题
11楼
smileboy 发表于：2009/2/6 15:30:00Dim 省市 As String = e.Form.Controls("TreeView1").SelectedNode.Text
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Select * From {客户} Where [省市] = '" & 省市 & "'"
dt = cmd.ExecuteReader() '生成统计表
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = dt
dst.Build()
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Select * From {客户} Where [省市] = '" & 省市 & "'"
dt = cmd.ExecuteReader() '生成统计表
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = dt
dst.Build()
[此贴子已经被作者于2009-2-6 15:33:21编辑过]
12楼
lxl 发表于：2009/2/6 16:10:00以下是引用smileboy在2009-2-6 15:30:00的发言：
Dim 省市 As String = e.Form.Controls("TreeView1").SelectedNode.Text
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Select * From {客户} Where [省市] = '" & 省市 & "'"
dt = cmd.ExecuteReader() '生成统计表
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = dt
dst.Build()
Dim 省市 As String = e.Form.Controls("TreeView1").SelectedNode.Text
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Select * From {客户} Where [省市] = '" & 省市 & "'"
dt = cmd.ExecuteReader() '生成统计表
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = dt
dst.Build()
[此贴子已经被作者于2009-2-6 15:33:21编辑过]
论坛有这个Bug, 这里老是显示不出来
完整的是:
Cmd.Co nnectio nName = "外部数据源名称"
（去掉o和n之间的空格)
[此贴子已经被作者于2009-2-6 16:12:16编辑过]
13楼
woodiy 发表于：2009/2/6 16:16:00是这样吗？系统提示
此主题相关图片如下：未标题-2.jpg
Dim 省市 As String = e.Form.Controls("TreeView1").SelectedNode.Text
Dim cmd As New SQLCommand
Dim dt As DataTable
Cmd.Connectio nName = "SystemData"
cmd.CommandText = "Select * From {客户} Where [省市] = '" & 省市 & "'"
dt = cmd.ExecuteReader() '生成统计表
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = dt
dst.Build()
此主题相关图片如下：未标题-2.jpgDim 省市 As String = e.Form.Controls("TreeView1").SelectedNode.Text
Dim cmd As New SQLCommand
Dim dt As DataTable
Cmd.Connectio nName = "SystemData"
cmd.CommandText = "Select * From {客户} Where [省市] = '" & 省市 & "'"
dt = cmd.ExecuteReader() '生成统计表
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = dt
dst.Build()
[此贴子已经被作者于2009-2-6 16:23:05编辑过]
14楼
菜鸟foxtable 发表于：2009/2/7 18:11:00以下是引用woodiy在2009-2-6 16:16:00的发言：
是这样吗？系统提示
此主题相关图片如下：未标题-2.jpg
是这样吗？系统提示
此主题相关图片如下：未标题-2.jpg[此贴子已经被作者于2009-2-6 16:23:05编辑过]
你检查一下你当前窗口所有代码,肯定有一行多出来,
dim i as integer
设定了变量,而接下来又没用到这个 i 变量.