未将对象引用设置到对象的实例。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

.NET Framework 版本：2.0.50727.3655

Foxtable 版本：2018.3.9.1

错误所在事件：窗口,报价明细,Button2,Click

详细错误信息：

未将对象引用设置到对象的实例。

代码如下：

Dim Result As DialogResult

Result = MessageBox.Show("确认审核吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

If usna Like "*设计师*" Then

With Tables("报价申请.报价单.报价明细")

For i As Integer = .TopPosition To .BottomPosition

Tables("报价申请").Current("研发部_报价审核状态") = "设计师审核通过" '原来的代码

Dim fdr As DataRow = DataTables("用户表").Find("用户名称='" & usna & "'")

Tables("报价申请").Current("研发部_设计师审核") = fdr("用户名称")

.Rows(i).Locked = True

End With

Dim r As Row = Tables("报价申请").Current

' r("研发部_中心审批") = "通过"

' r.Save()

'发送审核通过的消息

Dim dr As DataRow = DataTables("用户表").Find("用户名称 = '" & r("业务部_业务跟单") & "'")

'msgbox(dr("部门") & "." & r("业务部_业务跟单"))

QQClient.Send(dr("部门") & "." & r("业务部_业务跟单"), "-@|" & r("业务部_款号") & "|" & usna,True)

Dim da As DataRow = DataTables("用户表").Find("用户名称 = '" & r("研发部_设计师") & "'")

QQClient.Send(da("部门") & "." & r("研发部_设计师"), "-@|" & r("业务部_款号") & "|" & usna,True)

QQClient.Send("研发部.研发-祝炫丽","-@|" & r("业务部_款号") & "|" & usna,True)

QQClient.Send("研发部.研发-主管","-@|" & r("业务部_款号") & "|" & usna,True)

QQClient.Send("业务部.admin","-@|" & r("业务部_款号") & "|" & usna,True)

Else

MessageBox.show("你无权执行此项操作!")

End If

主题：未将对象引用设置到对象的实例。