sql子查询如何直接引用数据

东海扬尘

1. 1、Dim dtFind As DataTableHelp=tbl.DataTableHelp.Database.ExecuteDataTableHelp("select xiangmuMC,xiangmuID from xiangmuLB1 where xiangmuFID='" & dr("gongchengBH") & "'")
   
2. 2、Dim dtFind1 As DataTableHelp=tbl.DataTableHelp.Database.ExecuteDataTableHelp("select xiangmuMC,xiangmuID from xiangmuLB1 where xiangmuFID in(Select xiangmuID from xiangmuLB1 where xiangmuFID='" & dr("gongchengBH") & "')" )

复制代码

第2行代码中in(Select xiangmuID from xiangmuLB1 where xiangmuFID='" & dr("gongchengBH")如何换成第一行查询到的数据dtFind？这样就不用重复查询了

admin

1. Dim dtFind As DataTableHelp=tbl.DataTableHelp.Database.ExecuteDataTableHelp("select xiangmuMC,xiangmuID from xiangmuLB1 where xiangmuFID='" & dr("gongchengBH") & "'")
   
2. '如果xiangmuID列是字符串的话
   
3. Dim strIn As String=String.Join("','", dtFind.GetUniqueValues("xiangmuID").ToArray())
   
4. Dim dtFind1 As DataTableHelp=tbl.DataTableHelp.Database.ExecuteDataTableHelp("select xiangmuMC,xiangmuID from xiangmuLB1 where xiangmuFID in('" & strIn & "')" )

复制代码

东海扬尘

admin 发表于 2023-5-18 15:44