A gdzie masz czytanie z pliku: [syntax=vbnet]linia = LineInput(NR)[/syntax]?
A może jeszcze byś napisał czy robisz winforma czy może w Excelu coś skubiesz... ogólnie zdefiniować ilość dni możesz tak... [syntax=vbnet] dim Next100Day As Date = DateAdd(DateInterval.Day, 100, DateTime.Now) [/syntax] to sto dni do przodu z minusem będzie do tyłu, możesz użyć również miesięcy lub lat... [syntax=vbnet] dim Next2Month As Date = DateAdd(DateInterval.Month,...
Witam Czy nie chodzi o takie coś? [syntax=vbnet]With Sheets(ComboBox1.Value) i = .Cells(Rows.Count, 2).End(xlUp).Row + 1 .Cells(i, 2) = TextBox1 .Cells(i, 3) = TextBox2 .Cells(i, 4) = TextBox3 'i tak dalej End With[/syntax]
A nie jest przypadkiem błąd w selekcie? [syntax=sql]select dbnazwa from [MASTER].dbo.BAZA w join master.dbo.sysdatabases s on s.name = w.dbnazwa where prgkod = 1 order by dbnazwa[/syntax] A niżej masz: [syntax=vbnet]LookUpEdit1.Properties.Val... = "ID_BAZY" LookUpEdit1.Properties.DisplayMember = "DBNAZWA"[/syntax] id_bazy nigdzie nie selectujesz,...
ComboBox z opcją lista
Ale co konkretnie cię interesuje albo z czym konkretnie masz problem... Zasada jest bardzo prosta, połączenie przez port com wymaga jego konfiguracji, i albo robisz to ręcznie na sztywno, albo tworzysz klasę w której go konfigurujesz, tak czy inaczej musisz podać pewne parametry początkowe portu. Potem czekasz na wystąpienie zdarzenia OnReceive (a dokładniej...
Witam Może coś takiego [syntax=vbnet]Private Sub ComboBox1_Change() obszar = "B1:T" & Cells(Rows.Count, "B").End(xlUp).Row TextBox1.Text = Application.VLookup(ComboBox1.Value, Sheets("Arkusz1").Range(obszar), 2, 0) TextBox2.Text = Application.VLookup(ComboBox1.Value, Sheets("Arkusz1").Range(obszar), 3, 0) TextBox3.Text = Application.VLookup(ComboBox1.Value,...
Użyj zdarzenia KeyPress kontrolki ComboBox w ten sposób: [syntax=csharp] private void comboBox1_KeyPress(object sender, KeyPressEventArgs e) { if (e.KeyChar == 13) { // Metoda otwierająca nową stronę OpenUrl(comboBox1.Text); } } [/syntax] Nie zauważyłem że to ma być w VB:) [syntax=vbnet] Private Sub comboBox1_KeyPress(sender As Object, e As KeyPressEventArgs)_Handles...
Witaj -lista -> wybierz ActiveX ComboBox powiedzmy że chcę wybrać po 1 komórce z każdej kolumny [syntax=vbnet]Sub plus1() For Each c In Selection c.Value = c.Value + 1 Next End Sub [/syntax]
Dane do ComboBox2 wpisuje się najlepiej w procedurze ładowania formularza na przykład następująco[syntax=vbnet] With Me.ComboBox2.Items For Me.i = 2 To 55 .Add(i) Next End With[/syntax] Po wykonaniu tych instrukcji mam liczby od 2 do 55 w rozwijanej liście. Poeksperymentuj z danymi, które chcesz wpisać najpierw bez pętli. Nie ładuj ich w podprogramie....
W zdarzeniu 'Po aktualizacji' pola kombi: [syntax=vbnet]Me.PoleObok = Me.Kombi.Column(1)[/syntax]
No nie wiem... powinno się używać parametrów sql... Poza tym wypełnianie combo raczej zrobił bym tak... [syntax=vbnet]Private Sub wypelnij_combo(controlka As ComboBox) Dim conn As New SqlConnection() conn.ConnectionString = My.Settings.karty_asortymentoweConnectio... Dim cmd As New SqlCommand cmd.CommandType = CommandType.Text cmd.CommandText =...
Po wybraniu wartości w pierwszym CB, [syntax=vbnet] Combo 2. Items. Clear For i = 0 to lista. Count -1 lista z której ładujesz combo If lista. Item (i) <>Combo1. Selecteditem. Value then Combo 2. Item. Add(lista. Item(i)) End if Next [/syntax] To zdarzenie wywołaj przy combobox 1. Selecteditemchange
skoro masz takie problemy to znaczy że albo nie zrobiłeś tego co ci napisałem wcześniej albo masz coś źle... nie jest to wcale takie trudne, pokombinuj z wypełnieniem comboboxa... [url=http://visuastudio-vbnet.blog.pl/20... rozumiem że tą kontrolką do walidacji sprawdzasz sam formularz podczas wprowadzania......
formie 24h a nie 12h Ups... zamiast "HH" napisałem "hh". Zapomniałem, że to przecież jest spora różnica, ale jako że nie aż tak często używam funkcji Strings.Format (analogiczna do tej z VB6, nie mylić z String.Format, która to ma inną składnię) to pomyłki się zdarzają. W kodzie DataPickerMod zmień "hh:mm:ss" na "HH:mm:ss" czyli: aby przy kolejnym...
Witam, mam listbox'a z 4 kolumn, gdzie tylko jedna jest widoczna. Listbox ma ustawioną właściwość MultiSelect. No i mam problem, ponieważ zdarza się, że źle odczytuje wartości z kolekcji.. Spróbuję to opisać.. Formularz posiada Combobox i Listbox. Wartości do Listbox'a przypisywane są kwerendą w kodzie na podstawie zawartości Combobox'a. Listbox może...
Witam Pliki musisz pakować rar/zip itp. Co do ładowania danych do comboboxa odpowiedzialna jest część j.n musisz dopisać z jakiej zakładki są pobierane dane czyli [syntax=vbnet]Private Sub UserForm_Initialize() Dim i As Long i = 2 'bez nagłówka 'zapisanie do tablicy Do While Sheets("Articles").Cells(i, 1) <> "" AddItem Sheets("Articles").Cells(i,...
dlaczego chcesz ponownie wykonywać zapytanie przy filtrowaniu? Zrób filtrowanie dynamiczne bezpośrednio na dbgrid coś tego typu... Data <= '" & date2 &
hmm dzięki za odezwanie się tylko to nie za bardzo wiem jak tego mam użyć.
Miałeś napisać osobną metodę do wysyłania i odbioru danych. Jak bym wiedział jak to napisać bym to z przyjemnością zrobił, ale nie mam zielonego pojęcia jak to ma wyglądać. Może kolega mógłby rzucić troche kodem jak by to miało by mniej więcej wyglądać fachowo. Troche ten mój kod zmieniłem ale poszedłem "ostro" na skróty, dopisałem ponowny zapis zmiennej...
Listing: [syntax=vbnet] Imports System.Data.OleDb Imports System Imports System.IO Imports System.Drawing.Printing Public Class DemoForm Dim names() As String = {"", "A", "B", "C", "D", " "} Dim namesSzer() As Integer = {15, 235, 144, 330, 45, 40} Dim namesOffset() As Integer = {0, 110, 5, 60, 12, 10} Dim nagl1() As String = {"Lp", "data", "numer",...
Oczywiście problem rozwiązałem "półautomatycznie" przez kod w vb net: [syntax=vbnet]Dim str As String = "Select NrEwidKontrahenta, Max(DataWstawienia) AS OstatData FROM KONTRAHENCI GROUP BY NrEwidKontrahenta" Dim da As New OleDb.OleDbDataAdapter(str, cnn) da.Fill(ds) petla: For i = 0 To ds.Tables(0).Rows.Count - 1 ' ComboBox1.Items.Add(ds.Tables(0).Rows(i)...
Witam bardzo serdecznie... Mam mały kłopot z prawidłowym zapisem ustawień aplikacji dokonywanych przez użytkownika. Do tego celu mam dwie funkcje .. [syntax=vbnet] Function ReadSetting(key As String) As String Try Dim appSettings = ConfigurationManager.AppSettings Dim result As String = appSettings(key) If IsNothing(result) Then result = "Not found"...
Dziękuję koledze jestam , za uświadomienie mi, że nie myślę :) Wystarczyło wpisać w google "Odczyt pliku za pomocą VB" i po chwili znalazłem to http://www.vbamania.estrefa.pl/index.php... Mam jeszcze jeden problem odnośnie instrukcji shell. Otóż chciałbym mieć możliwość zmiany parametrów zaznaczonych poniżej, czyli: MIKROPROCESOR,...
Witam serdecznie Zaczynam przechodzić wreszcie z VB6 na VB.NET więc proszę o wyrozumiałość i pisanie jak do dziecka. Dla przykładu mam DataSeta a w nim dwa DataTable np. Produkty z kol ID, Nazwa i IDDziału oraz Działy z Kol ID i Nazwa są również ustalone relacje Produkty.IDDziału<=Działy.ID. Na formie jest DataGrid (ustawiony na read-only) z Produktami...
Witajcie, mam UserForm pod który podłączam listę opcji wyboru, po której wybraniu potrzebuję: 1) przejść makrami do opcji exportu do Pdf gdzie w kol. A Arkusza "ID" mam nazwę zakresu, a w kol. C i D mam nr stron do exportu tego zakresu - na to wstępny pomysł mam jak niżej ale nie działa. 2) przejść makrami do dynamicznie zmieniających się zakresów które...
Mam pytanie i proszę o pomoc. Wyświetlam sobie w mojej aplikacji w DataGridView dane z tabeli o urządzeniach. Każde urządzenie ma swój status: użytkowane, naprawa, przegląd. Chciałbym aby po wczytaniu do DataGridView danych, urządzenie miało status taki jaki jest w bazie (czyli np urządzenie 1 ma naprawa, 2 naprawa, 3 przeglad, 4 użytkowane) i żeby...
combobox zmienna wypełnić combobox combobox dodawać
fujitsu lifebook bateria wieje gorące powietrze blaupunkt uderzenia
dobre sklepy elektroniczne online dobre sklepy elektroniczne
Lokalizacja bezpiecznika w suszarce Candy CS H9 A2 Numer bezpiecznika radia w samochodach Skoda