以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助：选择不同行执行SQL语句  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=3831)
--  作者：migold
--  发布时间：2009/8/7 10:37:00
--  求助：选择不同行执行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，就是代码要在那里写才好
--  作者：狐狸爸爸
--  发布时间：2009/8/7 10:53:00
--  
帮助- 窗口设计 - 其他 -动态增加表
--  作者：yangming
--  发布时间：2009/8/7 11:08:00
--  

代码放在按钮中便可以,如是固定的,那就直接在窗口中插入Table并绑定
--  作者：migold
--  发布时间：2009/8/7 12:11:00
--  

各位老大们，能否来个实例的，谢谢。
--  作者：migold
--  发布时间：2009/8/7 12:15:00
--  

如3楼，
我有试过，
就是不知在哪里写上类似（在DataList1的CurrentChanged事件中）
Table没发现有事件
--  作者：yangming
--  发布时间：2009/8/7 12:36:00
--  
以下是引用migold在2009-8-7 12:11:00的发言：

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

你的示例呢?
--  作者：migold
--  发布时间：2009/8/7 12:43:00
--  
我去转成ACCEE出来，再上传
--  作者：狐狸爸爸
--  发布时间：2009/8/7 13:04:00
--  
项目事件也有CurrentChanged，这个对所有Table有效，是全局的。
--  作者：migold
--  发布时间：2009/8/7 13:16:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:商品编码查询.rar

请老大帮忙解决一下
--  作者：migold
--  发布时间：2009/8/7 17:17:00
--  
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
这句就搞定了