错误提示是这两句代码里面出的错误:
Dim dr As DataRow=dt.find("[FullName]="& txt.value &"")
Dim dr1 As DataRow=dt1.find("[name]="& lstR.items(i) &"")
试试
Dim dr As DataRow=dt.find("[FullName]='"& txt.value &"'")
Dim dr1 As DataRow=dt1.find("[name]='"& lstR.items(i) &"'")