Dim s As String = e.sender.text
Dim filter As String = "状态 = '待实施' And 提案人= '" & dr("用户姓名") & "'
if s>"" then
Dim Xh As String = "序号 like '%" & s & "%'"
filter = filter & " and " & xh
end if
加好友 
发短信
Post By：2020/4/9 12:09:00 [显示全部帖子]
