在绑定数据表的时候,
DoubleClick使用如下代码,可以打开"修改"窗口
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
Dim dr as DataRow = dst.Current '获得选定行
If dr Is Nothing Then
Return
End If
Dim Index As Integer = Tables("客户表").FindRow(dr)
If Index >=0 Then
Tables("客户表").Position = Index '定位到选定行
Forms("客户表修改").Open() '打开编辑窗口
End If为什么现在利用SQL动态绑定Datalist的时候,就出错如下错误
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:未命名.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2009-2/20092819262397949.jpg)
帮忙,代码该如何修改,谢谢!
附SQL绑定Datalist代码:
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-8 19:28:01编辑过]