以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求帮诊断一下代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117632)
--  作者：YDGJ2016
--  发布时间：2018/4/16 15:27:00
--  求帮诊断一下代码

我这段代码一运行就报错，实在发现不了问题在哪里，请各们大神帮诊断一下。

Dim drs As New List(Of DataRow)
drs = DataTables("LC01_流程任务").SQLSelect("任务名称 = \'分项工程录入\' and 任务计划_完成责任人 = \'" & _UserName & "\' and 完成复核_已复核 = 0")
For Each dr As DataRow In drs
    Dim rwid As String = dr("任务ID")
    Dim gcid As String = dr("单位工程ID")
    Dim mldr As DataRow = DataTables("XM01_项目目录").SQLFind("单位工程ID = \'" & gcid & "\'")
    Dim gczhm As String = mldr("单位工程组合名")
    Dim zt As String = dr("完成复核_完成状态")
    Dim rwmc As String = rwid
Next
--  作者：有点甜
--  发布时间：2018/4/16 15:35:00
--  

Dim drs As New List(Of DataRow)
drs = DataTables("LC01_流程任务").SQLSelect("任务名称 = \'分项工程录入\' and 任务计划_完成责任人 = \'" & _UserName & "\' and 完成复核_已复核 = 0")
For Each dr As DataRow In drs
    Dim rwid As String = dr("任务ID")
    Dim gcid As String = dr("单位工程ID")
    Dim mldr As DataRow = DataTables("XM01_项目目录").SQLFind("单位工程ID = \'" & gcid & "\'")
    If mldr Is Nothing Then
        msgbox("没找到" & gcid)
    Else
        Dim gczhm As String = mldr("单位工程组合名")
        Dim zt As String = dr("完成复核_完成状态")
        Dim rwmc As String = rwid
    End If
   
Next