If MessageBox.Show("是否删除选中记录?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes If CurrentTable.Compute("count(BBCheck)", "BBCheck = true") > 0 Then CurrentTable.DataTable.DeleteFor("BBCheck = true and YNKP = false") Dim del As Boolean=True With CurrentTable For Each r As DataRow In .DataTable.Select("BBCheck = True") If r("YNKP") Then del=False Exit For End If Next End With If del=False Then MessageBox.Show("已付款或已开piao记录不能删除!", "提示") End If Else Dim del As Boolean=True With CurrentTable For i As Integer = .BottomPosition To .TopPosition Step -1 If .Rows(i)("YNKP") Then del=False Else .Rows(i).Delete End If Next End With If del=False Then MessageBox.Show("已付款或已开piao记录不能删除!", "提示") End If End If End If
|