主题：求助：选择不同行执行SQL语句

我新建一个窗口，

里面放有：
DataList1绑定数据表“表A”
DataList2

在DataList1的CurrentChanged事件中：
Dim cmd As New SQLCommand
cmd.C
Dim dst1 As WinForm.DataList = e.Form.Controls("DataList1")
Dim dst2 As WinForm.DataList = e.Form.Controls("DataList2")
if dst1.count>0 then
    Dim dr1 as DataRow = dst1.Current '获得选定行
    dim str as string = dr1("商品编码")
    cmd.CommandText = "select * from product where u_Code = '" & str & "'"
end if
dst2.DataTable = cmd.ExecuteReader()
dst2.Build()
能够正常执行。以上的目的：选择DataList1每一行，能够查询关联表。

但DataList1不能像Table1那样能编辑查询的方便。所以我想将DataList1换成Table1，就是代码要在那里写才好

帮助- 窗口设计 - 其他 -动态增加表

代码放在按钮中便可以,如是固定的,那就直接在窗口中插入Table并绑定

各位老大们，能否来个实例的，谢谢。

如3楼，
我有试过，
就是不知在哪里写上类似（在DataList1的CurrentChanged事件中）
Table没发现有事件

你的示例呢?

我去转成ACCEE出来，再上传

项目事件也有CurrentChanged，这个对所有Table有效，是全局的。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:商品编码查询.rar

请老大帮忙解决一下

If MainTable.Name = "表A" Then
Dim frm As WinForm.Form
frm = Forms("窗口1")
frm.Open()
Dim cmd As New SQLCommand
cmd.C
Dim dst2 As WinForm.DataList = frm.Controls("DataList2")
Dim str as string = CurrentTable.Current("商品编码")
cmd.CommandText = "select * from product where u_Code = '" & str & "'"
dst2.DataTable = cmd.ExecuteReader()
dst2.Build()
End If
这句就搞定了