TvSettingsNew
This commit is contained in:
@@ -394,7 +394,7 @@ Public Class frmAnzeige
|
||||
r.Cells(0).Style.Font = Font1_MESS
|
||||
Dim doimage As Image = Nothing
|
||||
Select Case r.Cells(0).Value.ToString
|
||||
Case "PASSPORT" : doimage = My.Resources.passport : r.Cells(0).Value = "PASSPORT" ' r.Cells(0).Value = "PASS"
|
||||
Case ",pn" : doimage = My.Resources.passport : r.Cells(0).Value = "PASSPORT" ' r.Cells(0).Value = "PASS"
|
||||
Case "DOKUMENT" : doimage = My.Resources.passport : r.Cells(0).Value = "PROBLEM" ' r.Cells(0).Value = "PASS"
|
||||
Case "URGENT" : doimage = My.Resources.urgent_qu : r.Cells(0).Value = "PROBLEM"
|
||||
End Select
|
||||
|
||||
Reference in New Issue
Block a user