Dim dr As DataRow

dr=DataTables("账户管理").DataRows(0)

Dim dtname As String

If dr("部门") = "Inst"

    dtname = "Inst"

ElseIf dr("部门") ="PNL"

    dtname = "PNL"

End If

Dim s As String = e.sender.text

Dim filter As String

Dim name As String

Dim Xh As String 

Xh = "序号 like \'%" & s & "%\'"

name= dr("用户姓名")

filter = "状态 = \'待实施\' And 提案人= \'" & name & "\' and " & xh

Tables("完成_Table1").Fill("Sele ct [序号],[状态],[提案时间],[提案人],[提案名称] From {" & dtname & "} where " & filter,"ImproveSQL",True)

Tables("完成_Table1").SetColVisibleWidth("序号|60|状态|70|提案时间|90|提案人|90|提案名称|400")

老师，  我运行这个程序  在textbox1中输入的值，存在  则正常。  如果不存在，  就会报错“未将对象引用设置到对象的实例”   怎么解决？

是不是我在“完成_Table1” 中 存在positionchange的事件， 因为报错提示在这里出错。

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