以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  集合  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124571)
--  作者：qinjh18935180888
--  发布时间：2018/9/9 17:15:00
--  集合
老师，这个为什么不对？
            Dim drs As new List(of DataRow)
            drs = DataTables("审批进度").SQLSelect("申请编号 = \'" & e.DataRow("申请编号")  & "\'")
            If drs IsNot Nothing Then
                Dim lst As new List(of String)
                For Each dr1 As DataRow In drs
                    lst.Add(dr1("申请编号"))
                Next
            End If


lst.Add(dr1("申请编号"))   这个地方不执行。
[此贴子已经被作者于2018/9/9 17:16:46编辑过]
--  作者：有点甜
--  发布时间：2018/9/9 18:13:00
--  

执行这个代码，弹出什么？

 

Dim drs As new List(of DataRow)

drs = DataTables("审批进度").SQLSelect("申请编号 = \'" & e.DataRow("申请编号")  & "\'")

 

msgbox(drs.count)
--  作者：qinjh18935180888
--  发布时间：2018/9/9 19:37:00
--  
10

   For Each dr1 As DataRow In drs
                    lst.Add(dr1("申请编号"))
msgbox(lst)
                Next

没有弹出内容，出错。
[此贴子已经被作者于2018/9/9 19:39:34编辑过]
--  作者：有点甜
--  发布时间：2018/9/9 19:48:00
--  

1、报什么错？

 

2、改成这样，弹出什么？


Dim drs As new List(of DataRow)

drs = DataTables("审批进度").SQLSelect("申请编号 = \'" & e.DataRow("申请编号")  & "\'")
msgbox(drs.count)
Dim lst As new List(of String)
For Each dr1 As DataRow In drs
    msgbox(dr1("申请编号"))
    lst.Add(dr1("申请编号"))
Next

msgbox(lst.count)
--  作者：qinjh18935180888
--  发布时间：2018/9/9 20:06:00
--  
老师：好了，谢谢答复。代码都是正确的，刚不知什么原因。
--  作者：有点甜
--  发布时间：2018/9/9 20:12:00
--  
以下是引用qinjh18935180888在2018/9/9 20:06:00的发言：
老师：好了，谢谢答复。代码都是正确的，刚不知什么原因。

 

应该是你没有保存数据吧？sqlSelect只能查询保存了的数据，没保存的数据查不到的。