没有进入循环，就是没有查询到数据。修改一下条件试试
Dim lts As List(of DataRow) = DataTables("盖楼").sqlSelect("")
msgbox(lts)
msgbox("回复者 like '%" & str & "%' And 备注 Is Not null And 提交 = 0")
加好友 
发短信
Post By：2016/3/17 14:29:00 [显示全部帖子]
