求帮诊断一下代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求帮诊断一下代码

共有1571人关注过本帖树形打印复制链接主题：求帮诊断一下代码

YDGJ2016

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：42 积分：391 威望：0 精华：0 注册：2016/7/25 17:51:00

求帮诊断一下代码 发帖心情

Post By：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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

下一主题 >> << 上一主题

主题：求帮诊断一下代码