以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 集合 (http://foxtable.net/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、改成这样,弹出什么?
drs = DataTables("审批进度").SQLSelect("申请编号 = \'" & e.DataRow("申请编号") & "\'") msgbox(lst.count) |
-- 作者:qinjh18935180888 -- 发布时间:2018/9/9 20:06:00 -- 老师:好了,谢谢答复。代码都是正确的,刚不知什么原因。 |
-- 作者:有点甜 -- 发布时间:2018/9/9 20:12:00 -- 以下是引用qinjh18935180888在2018/9/9 20:06:00的发言:
老师:好了,谢谢答复。代码都是正确的,刚不知什么原因。
应该是你没有保存数据吧?sqlSelect只能查询保存了的数据,没保存的数据查不到的。 |