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

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