1.窗口的Afterload事件:
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = DataTables("客户")
dst.Build()显示窗口如下:
此主题相关图片如下：1111.jpg
2.左边目录树的
NodeMouseDoubleClick事件:
Dim 省市 As String = e.Form.Controls("TreeView1").SelectedNode.Text
Dim cmd As New SQLCommand
Dim dt As DataTable
Cmd.ConnectionName = "systemdata" '外部数据源
cmd.CommandText = "Select * From {客户} Where [省市] = '" & 省市 & "'"
dt = cmd.ExecuteReader() '生成统计表
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = dt
dst.Build()其中"systemdata"为外部SQL数据源
点击左边的目录树,就出现如下错误, 右边Datalist中没有动戊显示:
此主题相关图片如下：22222.jpg
请各位帮忙指点一下,谢谢!
[此贴子已经被作者于2009-2-7 18:35:22编辑过]
加好友 
发短信
Post By：2009/2/7 18:35:00 [只看该作者]
菜鸟中的老鸟
