If CurrentTable.name = "SBG对账单" Then
Dim tbl As Table = Tables("SBG对账单")
If e.Book.TempLate = "开具fa piao项目" Then 'TempLate是指模板文件的名称
Dim cnt As Integer = tbl.DataTable.GetValues("页码", Tables("SBG对账单").filter).count '统计某列筛选后含有多少个不同的页码, 加上 Tables("接头BOM").filter 就是进行筛选的意思,不加,就是所有数据
If cnt > 1 Then
messagebox.show("本页面存在 " & cnt & " 个不同的页码, 请重新筛选后再使用此按钮!")
Else
'不起作用？
Dim a As Row = Tables("SBG对账单").Current
If a.isnull("同年月序号") Then
MessageBox.Show("存在 同年月序号 为空值的行!")
Tables("SBG对账单").Filter = "[同年月序号] is null"
End If
End If
End If
End If
上面的代码，我希望在运行报表之前提醒还有同年月序号 为空值的行，但是这些代码无效。请教是哪里的问题呢？谢谢。
加好友 
发短信
Post By：2022/12/14 10:23:00 [显示全部帖子]
