| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]对符合条件行赋值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45870) |
| -- 作者：红颜 -- 发布时间：2014/2/12 16:17:00 -- [求助]对符合条件行赋值 Dim max As Integer = Tables("打印发票_Table1").Compute("Max(FZ)","DY = False ") If max > 0 Then Tables("打印发票_Table1").Filter = "[FZ] = " & max & " And [DY] = False" End If Dim drs As List(Of DataRow) drs = Tables("打印发票_Table1").Select("[FZ] = " & max & " And [DY] = False") For Each dr As DataRow In drs dr("DY") = True Next Tables("打印发票_Table1")必须是DataTables？？
[此贴子已经被作者于2014-2-12 16:27:30编辑过]
|
| -- 作者：Bin -- 发布时间：2014/2/12 16:17:00 -- 请问你的问题是什么? |
| -- 作者：红颜 -- 发布时间：2014/2/12 16:32:00 -- Dim drs As List(Of DataRow) drs = Tables("打印发票_Table1").Select("[FZ] = " & max & " And [DY] = False") For Each dr As DataRow In drs dr("DY") = True Next [DY]为逻辑列，将符合条件的行的逻辑列打勾（条件[FZ]是最大值，尚未打印） 这段代码不执行 Tables("打印发票_Table1")必须是DataTables？？ 将分组数[FZ]最大且尚未打印的行的逻辑列设为ture（0） [此贴子已经被作者于2014-2-12 16:34:07编辑过]
|
| -- 作者：Bin -- 发布时间：2014/2/12 16:33:00 -- drs = Tables("打印发票_Table1").datatable.Select("[FZ] = " & max & " And [DY] = False") |
| -- 作者：红颜 -- 发布时间：2014/2/12 16:43:00 -- 谢谢，问题解决了 |