MS

app/DD-Record-Organizer/frmLicense.vb

@@ -14,7 +14,7 @@ Public Class frmLicense
                 Me.lblPW.Visible = False
                 Me.txtPW.Visible = False
                 Me.btnPW_check.Visible = False
-                If DT_CLIENT_USER.Rows.Count > 1 Then
+                If DT_CLIENT_USER.Rows.Count >= 1 Then
                     lblClient.Visible = True
                     cmbClients.Visible = True
                     Try
@@ -24,10 +24,13 @@ Public Class frmLicense
                     Catch ex As Exception
                         MsgBox("Unexpected Error in Loading Clients: " & ex.Message, MsgBoxStyle.Critical)
                     End Try
-                ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
+                Else
                     lblClient.Visible = False
                     cmbClients.Visible = False
-                    CLIENT_ID = DT_CLIENT_USER.Rows(0).Item("CLIENT_ID")
+                End If
+
+                If DT_CLIENT_USER.Rows.Count = 1 Then
+                    CLIENT_ID = 0
                 End If
 
 
@@ -128,7 +131,12 @@ Public Class frmLicense
                 CLIENT_ID = cmbClients.SelectedValue
                 Refresh_Licence(False)
             Catch ex As Exception
-                CLIENT_ID = 99
+                If DT_CLIENT_USER.Rows.Count = 1 Then
+                    CLIENT_ID = 0
+                Else
+                    CLIENT_ID = 99
+                End If
+
             End Try
 
         End If