|
发表于 2023-5-18 15:44:15
|
显示全部楼层
- Dim dtFind As DataTableHelp=tbl.DataTableHelp.Database.ExecuteDataTableHelp("select xiangmuMC,xiangmuID from xiangmuLB1 where xiangmuFID='" & dr("gongchengBH") & "'")
- '如果xiangmuID列是字符串的话
- Dim strIn As String=String.Join("','", dtFind.GetUniqueValues("xiangmuID").ToArray())
- Dim dtFind1 As DataTableHelp=tbl.DataTableHelp.Database.ExecuteDataTableHelp("select xiangmuMC,xiangmuID from xiangmuLB1 where xiangmuFID in('" & strIn & "')" )
复制代码 |
|