以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117713)
--  作者：YDGJ2016
--  发布时间：2018/4/18 9:08: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")
Next
是运行到

For Each dr As DataRow In drs
这一句的时候报错
--  作者：有点甜
--  发布时间：2018/4/18 9:44:00
--  
你贴出的这段代码，单独执行，是不可能报错的。
--  作者：YDGJ2016
--  发布时间：2018/4/18 9:48:00
--  

完整的代码是这样的

Dim tpb As WinForm.TopicBar = e.Form.Controls("D110-任务栏")
Dim page As WinForm.TopicPage = tpb.Pages("计划任务")
Dim rwids As New List(Of String)
rwids = DataTables("LC01_流程任务").SQLGetValues("任务ID","任务名称 = \'分项工程录入\' and 任务计划_完成责任人 = \'" & _UserName & "\' and 完成复核_已复核 = 0")
For Each rwid As String In rwids
    Dim lcdr As DataRow = DataTables("LC01_流程任务").SQLFind("任务ID = \'" & rwid & "\'")
    Dim gcid As String = lcdr("单位工程ID")
    Dim mldr As DataRow = DataTables("XM01_项目目录").SQLFind("单位工程ID = \'" & gcid & "\'")
    Dim gczhm As String = mldr("单位工程组合名")
    Dim zt As String = lcdr("完成复核_完成状态")
    Dim rwmc As String = rwid
    Dim kg As New String(" ",80 - rwid.Length - gczhm.Length - zt.Length)
    Dim rwbt As String = "任务ID " & rwid & "  单位工程 " & gczhm & kg & zt
    page.Links.Add(rwid,rwbt)
Next
--  作者：YDGJ2016
--  发布时间：2018/4/18 9:51:00
--  

后来尝试着修改成这样就没报错了，不明白其中是什么原因。

Dim rwids As New List(Of String)
rwids = DataTables("LC01_流程任务").SQLGetValues("任务ID","任务名称 = \'分项工程录入\' and 任务计划_完成责任人 = \'" & _UserName & "\' and 完成复核_已复核 = 0")
For Each rwid As String In rwids
    Dim tpb As WinForm.TopicBar = e.Form.Controls("D110-任务栏")
    Dim page As WinForm.TopicPage = tpb.Pages("计划任务")
    Dim lcdr As DataRow = DataTables("LC01_流程任务").SQLFind("任务ID = \'" & rwid & "\'")
    Dim gcid As String = lcdr("单位工程ID")
    Dim mldr As DataRow = DataTables("XM01_项目目录").SQLFind("单位工程ID = \'" & gcid & "\'")
    Dim gczhm As String = mldr("单位工程组合名")
    Dim zt As String = lcdr("完成复核_完成状态")
    Dim rwmc As String = rwid
    Dim kg As New String(" ",80 - rwid.Length - gczhm.Length - zt.Length)
    Dim rwbt As String = "任务ID " & rwid & "  单位工程 " & gczhm & kg & zt
    page.Links.Add(rwid,rwbt)
Next
--  作者：有点甜
--  发布时间：2018/4/18 10:12:00
--  

1、报错，是报什么错？

 

2、如果报错，这样调试 http://www.foxtable.com/webhelp/scr/1485.htm

 

3、如果还报错，自己不会调试，那就做个实例发上来测试