Registrace nového uživatele     Návod     Kluby     Archív  Lopuchu     Lopuch.cz  

Nudou jsi opuch?
Navštiv Lopuch!

Lopuch.cz

Jméno:
Heslo:
Podpora LCD:
 
Archiv klubu Visual Basic [ŽP: neomezená] (kategorie Programování) moderuje Rider.

Visual Basic, VBScript, ASP, VB.NET a dalsi...

Informační zdroje: Tipy na vaše oblíbené stránky můžete směřovat do Riderovy pošty
  Nastavení klubu     Nastavení práv     Homepage     Anketa     Přítomní     Oblíbené     Lopuch     Kategorie  
autor: 
text: 
vyplnit a 
Help

Nemáte právo psát do tohoto klubu. Práva vám může přidělit moderátor klubu. Požádejte ho v soukromé poště.

[ 78 ] <Novější  <<<Nejnovější  Nejstarší>>>  Starší>  
tomkas TomKas Silent Spring 21.6.2006 10:33  97
Zdravím všechny.
Mám dotaz ohledně Crystal reportu. Je nějaká možnost provádět řazení záznamů v reportu podle libovolného sloupce, ale parametricky? Tzn. mám naplněný dataset a potřeboval bych, aby výsledek zobrazený v Crystal reportu byl jednou seřazen např. podle prvního sloupce, jindy zase např. podle druhého sloupce.
Je mi jasné, že si můžu nadefinovat tolik sestav (souborů RPT), kolik varinat třídění může nastat - tedy pro každý setříděný sloupec jednu sestavu a tu pak volat v Crystal Report Vieweru. Ale zdá se mi to poněkud složité a neelegantní řešení.

Uměl by někdo poradit?

Díky.
anywherehome 14.4.2006 13:21  95
vbscriptjak zjistit název aktivní (v popředí) aplikace?
tomkas TomKas Silent Spring 18.2.2006 12:27  92
huhVeliké díky! Ani nevíš, jak jsi mi pomohl. S tím atributem mě to vůbec nedošlo.
Ještě jednou dík.
huh huh 18.2.2006 12:08  91
Hezčí a barevnější verze.
huh huh 18.2.2006 11:58  90
TomKas [89]: tam hlavne musis mit atribut Serializable, napr.:
imports Microsoft.VisualBasic

imports System
Imports System.Collections
Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary

Public Module MyModule

<Serializable> Class Trida
Public atribut As Integer
Public Sub New(ByVal i As Integer)
atribut = i
End Sub
Public Overrides Function ToString() As String
ToString = atribut.ToString
End Function
End Class

Private list As New ArrayList()

Sub Uloz()
Dim fs As New FileStream("soubor.txt", FileMode.Create)
Dim bf As New BinaryFormatter()
bf.Serialize(fs, list)
fs.Close()
End Sub

Sub Nacti()
Dim fs As New FileStream("soubor.txt", FileMode.Open)
Dim bf As New BinaryFormatter()
list = DirectCast(bf.Deserialize(fs), ArrayList)
fs.Close()
End Sub

Sub Main
Dim i As Integer
Dim t As Trida

For i = 1 To 5
list.Add(New Trida(i))
Next i

Console.WriteLine("Ukladam")
For Each t In list
Console.WriteLine(t)
Next t
Uloz

Console.WriteLine("Nacitam")
Nacti
For Each t In list
Console.WriteLine(t)
Next t

Console.ReadLine()
End Sub

End Module
tomkas TomKas Silent Spring 16.2.2006 21:13  89
SerializaceZdravím vespolek.
Mám jeden dotaz. Byl by někdo ochotný tady uveřejnit jednoduchý kousek programu využívající serializaci kolekce ArrayList, do které by byla uložena uživatelská třída (příp. struktura) se zápisem do binárního souboru na disk.
Dva dny už tápu jak to naprogramovat. Mám několik příkladů z různých knih, nicméně nic z toho nefunguje. Vždy skončím na tom, že v momentě zápisu kolekce ArrayList s jednoduchou uživatelskou třídou přes FileStream mi kompilátor zahlásí něco ve stylu, že uživatelská třída není serializovatelná. Zkoušel jsem do této uživ. třídy implementovat rozhraní ISerializable, nicméně ani toto nepomáhá.

Všem bych byl moc vděčný za jakékoliv poznatky nebo rady.
Díky
langer 12.1.2006 15:55  88
Tak......první už vím (ono to přes řádek nefunguje obecně, jak se zdá, takže jsem to udělal přes tabulku), druhé ale stále ne.
langer 11.1.2006 14:11  87
Prosím o rady...Tápu:

Mám tabulku z databáze a na ni naroubovaný řádek (podle okolností radek=tabulka.newrow nebo radek=tabulka.rows.item(0)). Mám textbox, který na to přivazuju: txtbox.databindings.add("text",radek,"nadpis") - a háže to chybu, že je špatný parametr, že se na nadpis přivázat nedá. Ale pozor! Při txtbox.databindings.add("text",tabulka,"nadpis") to funguje. Ostatní sloupce to přitom přivazuje, tak se mi zdá, že by zádrhel mohl být v tom, že je ten sloupec založenej jako "text". Ale proč to jde u tabulky, a ne u řádku? Dělám něco špatně?

A ještě druhá věcička: Když si přes dataadapter.fill a dataadapter.fillschema stáhnu schéma tabulky, tak pak přes různé vlastnosti zjistím nastavení sloupců. Jen allowDBNull si dělá, co chce, bez ohledu na to, co je pravdou v databázi. Nevíte taky, jak na to?

Díky moc.
nezmar23 5.1.2006 17:46  86
TO NENI MOZNYTo byla první věc co jsem skoušel a nefungovalo to tak jsem hledal něco jinýho dlouho dlouho dlouho
PROČ TO TEĎ FUNGUJE???????????????
Každopádně dík za radu
huh huh 3.1.2006 23:18  85
Nezmar23 [84]: neco jako textBox1.Lines.Length by nefungovalo?
nezmar23 3.1.2006 19:29  84
RichTextBoxMůžete někdo poradit jak zjistim počet řádků v richtextboxu
Ve VB6 bezvadně funguje tohle
Private Declare Function SendMessage Lib "user32" Alias _

"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _

ByVal wParam As Long, ByVal lParam As String) As Long

Private Declare Function SendMessageStr Lib "user32" Alias _

"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _

ByVal wParam As Long, ByVal lParam As String) As Long

Private Const EM_GETLINECOUNT = &HBA

radku = SendMessage(RichTextBox1.hwnd, EM_GETLINECOUNT, 0, 0)


v jedný konferenci mi poradili todle

VB .NET umožňuje nyní (stejně jako C#, ale narozdíl od C++ ) pouze vývoj aplikací pod NET frameworkem, takže API funkce SendMessage není v té knihovně tříd implementovaná. Handle okna je nyní jako property Handle, ale SendMessage je třeba importovat z DLL knihovny user32.dll, což je ovšem (zejména pro "NET fundamentalisty") nestandardní postup.


Takže jsem nepochopil nic.


Už se s tim peru 3 měsíc a nemůžu prorazit........... a sem čím dál nsr...
POMOC
rider Rider - Asociace chovatelů antropomorfních koní 30.12.2005 00:04  83
PetrhPrincipiálně není důvod k tomu, aby nejela. Nicméně doporučuji vaší laskavé pozornosti spíše jejího nástupce pro verzi 2.0, Nemesis Gallery Express.
petrh petrh Mluviti stříbro, slyšeti zlato - >HOLUBNÍK< 29.12.2005 17:57  82
RiderZeptám se tu, ať se tu něco děje:
Jede tato aplikace
http://software.altaircom.net/download.aspx?file=silverwolf-src-2.5.1663.12358.zip
pod ASP.NET verze 2?
mira Mira Optimista se učí anglicky - pesimista rusky a realista střílet... 23.11.2005 11:24  81
tak vyreseno, dik vsem :Dfunkce "timer" vraci cas v sekundach od pulnoci s presnosti na setiny...

CasStart = Timer
'stopovana akce

CasStop = Timer
If CasStop < CasStart Then CasStop = CasStop + 86399.99 'pokud mereni bezi pres pulnoc

CasCelkem = CasStop - CasStart
mira Mira Optimista se učí anglicky - pesimista rusky a realista střílet... 23.11.2005 09:59  80
VBA a přesnější měření časuzdravim, da se ve VBAcku merit cas v ms??? Vteriny nejsou problem pres datediff, ale potreboval bych to presnejc...

[ 78 ] <Novější  <<<Nejnovější  Nejstarší>>>  Starší>  

(c) 2001-2011 Lopuch.cz   
Kontakt