求助：有没有办法将查询到的两行记录，自动转为两行文本呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim filter As String = "1=1" 为什么要这样做？

For Each s As String In txt.Split(" ")

Filter &= " and 罪名 Like '%" & s & "%' and 具体内容 Like '%" & s & "%'"

更改为 If txt > "" Then tbl.filter = "罪名 Like '%" & txt.text & "%' and 具体内容 Like '%" & txt.text & "%'" 能否实现你的筛选

筛选后，

Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox2")

for each ab as row in tbl.rows

if txt1.Text > "" then txt1.Text &= ";"

txt1.Text &= ab("罪名") & ab("具体内容") & ab("法条")& ab("款项")& ab("法律名")& ab("发布时间")

试试！

[此贴子已经被作者于2019/2/13 17:28:16编辑过]

主题：求助：有没有办法将查询到的两行记录，自动转为两行文本呢？