Frage : Entdeckung-Strecke der Einzelteile in dataTable

Ich benutze SQL-SERVER, haben Vb.NEt Project
I eine datatable Spalte von ihm (lässt in Index x) sagen hat Daten, die Übungs-Code wie E-101, E102 ....., E129, E-200, E-201, E-299 umfaßt, sind E-300 e.t.c
Because viele Übungen, die ich in einer listbox Strecke der Übungen hinzufügen muss, die das Minimum und das Maximum von „Hundrends "
zum Beispiel E-101 zu E-129
E-200 zu E-299 e.t.c umfaßt (möglicherweise das Maximum 234)….Können Sie mir eine Richtlinie bitte geben????
Thank Sie sehr viel im Voraus!! Dann verwende ich dieses listbox Vorwähler für WO Klausel…

Antwort : Entdeckung-Strecke der Einzelteile in dataTable

Hallo biker9,

wenn Sie CopyPicture verwenden, kopieren Sie das Bild, während es auf dem Schirm erscheint. Die Druckeinstellungen für die Form ignoriert. Sie ist eher wie das Nehmen eines screenshot, nicht wie das Schicken der Strecke zum Drucker (in diesem Fall die Form nicht gedruckt).

, vor der Kopie der Strecke, als Abhilfe können Sie die Fülle und den Rand der Form auf msoFalse einstellen (als Strecke oder Abbildung) und dann, nach dem Kopienbetrieb, die Fülle wieder herstellen und einfassen (mit msoTrue)

Das angebrachte Code-Stückchen arbeitet an Ihrem Beispiel.

Beifall, teylyn
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

VorPrint_as_Pic ()
'
    Mit ActiveSheet.Shapes.Range (Reihe („Viereck 11“))
        . Fill.Visible = msoFalse
        . Line.Visible = msoFalse
    Ende mit
    Strecke („B2: F22“). Strecke („J2“) kopieren
    Mit ActiveSheet.Shapes.Range (Reihe („Viereck 11“))
        . Fill.Visible = msoTrue
        . Line.Visible = msoTrue
    Ende mit
    Strecke („P4“). Auserwählt

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us