Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]对符合条件行赋值


  共有3628人关注过本帖树形打印复制链接

主题：[求助]对符合条件行赋值
帅哥哟，离线，有人找我吗？
红颜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：254 积分：1963 威望：0 精华：0 注册：2013/2/6 19:09:00 		[求助]对符合条件行赋值  发帖心情 Post By：2014/2/12 16:17:00 [只看该作者]

Dim max As Integer = Tables("打印fa piao_Table1").Compute("Max(FZ)","DY =  False ")
If max > 0 Then
    Tables("打印fa piao_Table1").Filter = "[FZ] = " & max  & " And [DY] = False"
End If
Dim drs As List(Of DataRow)
drs = Tables("打印fa piao_Table1").Select("[FZ] = " & max  & " And [DY] = False")
For Each dr As DataRow In drs
    dr("DY") = True
Next


Tables("打印fa piao_Table1")必须是DataTables？？
[此贴子已经被作者于2014-2-12 16:27:30编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/2/12 16:17:00 [只看该作者]

请问你的问题是什么?

 回到顶部
帅哥哟，离线，有人找我吗？
红颜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：254 积分：1963 威望：0 精华：0 注册：2013/2/6 19:09:00 		  发帖心情 Post By：2014/2/12 16:32:00 [只看该作者]

Dim drs As List(Of DataRow)
drs = Tables("打印fa piao_Table1").Select("[FZ] = " & max  & " And [DY] = False")
For Each dr As DataRow In drs
    dr("DY") = True
Next
[DY]为逻辑列，将符合条件的行的逻辑列打勾（条件[FZ]是最大值，尚未打印）
这段代码不执行
Tables("打印fa piao_Table1")必须是DataTables？？

将分组数[FZ]最大且尚未打印的行的逻辑列设为ture（0）

[此贴子已经被作者于2014-2-12 16:34:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/2/12 16:33:00 [只看该作者]

drs = Tables("打印fa piao_Table1").datatable.Select("[FZ] = " & max  & " And [DY] = False")

 回到顶部
帅哥哟，离线，有人找我吗？
红颜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：254 积分：1963 威望：0 精华：0 注册：2013/2/6 19:09:00 		  发帖心情 Post By：2014/2/12 16:43:00 [只看该作者]

谢谢，问题解决了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询