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编辑过]