因为你副本表设置了筛选了吧?不满足的,就不显示了。
If MessageBox.Show("是否打印多人登记表?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then For i As Integer = CurrentTable.rows.count-1 To 0 Step -1 Dim dr As Row = CurrentTable.rows(i) dr("从业证打印") = False NextEnd If