在确定按钮的click事件中做判断：实际上没有符合条件的drs，messagebox.show(1)和messagebox.show(2)弹窗了；直接就到messagebox.show(5)，而且输出的str为空。怎么回事啊。理论上应该是弹窗messagebox.show(6) 的啊。
是不是SQLSelect语句有问题啊。
If drr1("等级")="一级"
Dim Str As String
Dim drs As List(of DataRow) = DataTables("计划执行情况表").SQLSelect("项目编号 ='"& drr1("项目编号") &"' And 一级编号='"& drr1("一级编号") &"' and 等级='二级'")
messagebox.show(1)
If drs IsNot Nothing
messagebox.show(2)
For Each dr As DataRow In drs
messagebox.show(3)
If dr.isnull("实际完成时间")
messagebox.show(4)
Str=dr("责任部门") & "承办的任务:" & dr("任务名称") & ";" & Str
End If
Next
messagebox.show(5)
messagebox.show("一级节点的子任务确认完成后,才能确认完成相应的一级节点任务:" & Str)
Return
Else
messagebox.show(6)
cr("工作进展过程记录") = user.name & "在" & rq & "更新进展记录:【" & e.Form.Controls("工作进展").value & "】" & vbcrlf & cr("工作进展过程记录")
cr("完成提交人")=user.name
cr("完成提交日期")=rq
Tables("计划执行情况表").save
forms("增加一条主项计划完成窗口").close()
End If
加好友 
发短信
Post By：2018/6/27 15:27:00 [显示全部帖子]
