.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
Next
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
End If
加好友 
发短信
Post By：2018/5/26 11:11:00 [只看该作者]
