主题：[求助] SQL查询 建表的相关问题

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的事件， 因为报错提示在这里出错。