Private Sub DataGridView1_CellFormatting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
If e.ColumnIndex = 4(指定你的列数) AndAlso e.Value IsNot DBNull.Value Then
Select Case e.Value
Case 0
e.Value = "审批"
Case 1
e.Value = "已审批"
DataGridView1.Rows(e.ColumnIndex).Cells(e.ColumnIndex).ReadOnly = True
End Select
End If
END SUB
Private Sub DataGridView1_CellFormatting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
If e.ColumnIndex = 4(指定你的列数) AndAlso e.Value IsNot DBNull.Value Then
Select Case e.Value
Case 0
e.Value = "审批"
Case 1
e.Value = "已审批"
End Select
End If
END SUB