Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Datagridview / 9 сообщений из 9, страница 1 из 1
13.11.2013, 12:28
    #38463266
Spaiker
Spaiker
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Datagridview
Здравствуйте. При создании программы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2013, 13:04
    #38463320
fortibransa
fortibransa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Datagridview
Helo world
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2013, 13:50
    #38463400
Spaiker
Spaiker
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Datagridview
Visual studio 2010.
Здравствуйте. При создании программы:
 

Я столкнулся с проблемой:
Когда я заполняю форму и нажимаю добавить, на форме2 в таблице появляется все, что я написал:
 

При переходе в таблицу заносится информация согласно форме1 и все текстовые поля на форме1 очищаются, чтобы можно было добавлять нового участника:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
 'Занесение информации в таблицу согласно Форме1
        With DataGridView1
            .Rows.Add(Form1.TextBox1.Text, Form1.TextBox2.Text, Form1.TextBox3.Text, Form1.ComboBox1.Text & "." & Form1.ComboBox2.Text & "." & Form1.ComboBox3.Text, Form1.TextBox4.Text, Form1.TextBox5.Text, Form1.TextBox6.Text, Form1.TextBox7.Text, Form1.TextBox8.Text & Form1.CheckBox1.Text & Form1.CheckBox2.Text & Form1.CheckBox3.Text)
        End With

        Form1.TextBox1.Text = ""
        Form1.TextBox2.Text = ""
        Form1.TextBox3.Text = ""
        Form1.TextBox4.Text = ""
        Form1.TextBox5.Text = ""
        Form1.TextBox6.Text = ""
        Form1.TextBox7.Text = ""
        Form1.TextBox8.Text = ""



Проблема : Когда я хочу добавить нового участника я нажимаю на форме2 кнопку(добавить участника)
 
код кнопки
Код: vbnet
1.
2.
Me.Hide()
        Form1.Show()


Я снова заполняю все текстовые поля, нажимаю добавить, меня переносит на форму2 и ничего не добавляется. Первая строчка есть со всей внесенной информацией, а второй нет.

И еще вопрос: Как сделать поиск по таблице?
 

 
код form1

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
Public Class Form1
    Dim dt As New DataTable
    Dim ds As New DataSet

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Максимальное кол-во символов в текстовых полях
        TextBox4.MaxLength = 10 'паспорт
        TextBox5.MaxLength = 12 'инн
        TextBox6.MaxLength = 19 'iccid
        TextBox7.MaxLength = 12 '+телефон
        TextBox8.MaxLength = 4  'свой лимит
    End Sub
    'имя
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If IsNumeric(TextBox1.Text) Then
            TextBox1.Text = ""
        ElseIf Not IsNumeric(TextBox1.Text) Then
        End If
    End Sub
    'фамилия
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        If IsNumeric(TextBox2.Text) Then
            TextBox2.Text = ""
        ElseIf Not IsNumeric(TextBox2.Text) Then
        End If
    End Sub
    'отчество
    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
        If IsNumeric(TextBox3.Text) Then
            TextBox3.Text = ""
        ElseIf Not IsNumeric(TextBox3.Text) Then
        End If
    End Sub
    'паспорт
    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
        If IsNumeric(TextBox4.Text) Then
        Else
            TextBox4.Text = ""
        End If
    End Sub
    'инн
    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
        If IsNumeric(TextBox5.Text) Then
        Else
            TextBox5.Text = ""
        End If
    End Sub
    'iccid
    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
        If IsNumeric(TextBox6.Text) Then
        Else
            TextBox6.Text = ""
        End If
    End Sub
    'телефон
    Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
        If IsNumeric(TextBox7.Text) Then
        Else
            TextBox7.Text = ""
        End If
    End Sub
    'свой лимит
    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
        If IsNumeric(TextBox8.Text) Then
        Else
            TextBox8.Text = ""
        End If
        Select TextBox8.Text
            Case 0 To 9999
                CheckBox1.Checked = False '''''''Если написать что-нибудь в тексте(свой лимит), то все галочки исчезают
                CheckBox2.Checked = False
                CheckBox3.Checked = False
        End Select
    End Sub
    '100p
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        TextBox8.Text = False '''''Если выбрать галочку, то написанное в тексте(свой лимит) исчезает
    End Sub
    '500p
    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        TextBox8.Text = False '''''Если выбрать галочку, то написанное в тексте(свой лимит) исчезает
    End Sub
    '1000p
    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        TextBox8.Text = False '''''Если выбрать галочку, то написанное в тексте(свой лимит) исчезает
    End Sub

    'Добавить

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        Form2.Show()
        Form2.DataGridView1.Rows.Add()
    End Sub

    
End Class


 
код form2 - то что писал я

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
Public Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox4.MaxLength = 12
        'Если свой лимит, то добавление "р."
        If Form1.CheckBox1.Checked = False And Form1.CheckBox1.Checked = False And Form1.CheckBox1.Checked = False Then
            Form1.TextBox8.Text = Form1.TextBox8.Text & "р."
        End If
        'Проверка Чекбоксов на включенность
        '100p
        If Form1.CheckBox1.Checked = True Then

        ElseIf Form1.CheckBox1.Checked = False Then
            Form1.CheckBox1.Text = ""
        End If
        '500p
        If Form1.CheckBox2.Checked = True Then

        ElseIf Form1.CheckBox2.Checked = False Then
            Form1.CheckBox2.Text = ""
        End If
        '1000p
        If Form1.CheckBox3.Checked = True Then

        ElseIf Form1.CheckBox3.Checked = False Then
            Form1.CheckBox3.Text = ""
        End If
        'Изменение месяца
        If Form1.ComboBox2.Text = "Январь" Then ''''
            Form1.ComboBox2.Text = "01"
        End If
        If Form1.ComboBox2.Text = "Февраль" Then ''''
            Form1.ComboBox2.Text = "02"
        End If
        If Form1.ComboBox2.Text = "Март" Then ''''
            Form1.ComboBox2.Text = "03"
        End If
        If Form1.ComboBox2.Text = "Апрель" Then ''''
            Form1.ComboBox2.Text = "04"
        End If
        If Form1.ComboBox2.Text = "Май" Then ''''
            Form1.ComboBox2.Text = "05"
        End If
        If Form1.ComboBox2.Text = "Июнь" Then ''''
            Form1.ComboBox2.Text = "06"
        End If
        If Form1.ComboBox2.Text = "Июль" Then ''''
            Form1.ComboBox2.Text = "07"
        End If
        If Form1.ComboBox2.Text = "Август" Then ''''
            Form1.ComboBox2.Text = "08"
        End If
        If Form1.ComboBox2.Text = "Сентябрь" Then ''''
            Form1.ComboBox2.Text = "09"
        End If
        If Form1.ComboBox2.Text = "Октябрь" Then ''''
            Form1.ComboBox2.Text = "10"
        End If
        If Form1.ComboBox2.Text = "Ноябрь" Then ''''
            Form1.ComboBox2.Text = "11"
        End If
        If Form1.ComboBox2.Text = "Декабрь" Then ''''
            Form1.ComboBox2.Text = "12"
        End If
        'Занесение информации в таблицу согласно Форме1
        With DataGridView1
            .Rows.Add(Form1.TextBox1.Text, Form1.TextBox2.Text, Form1.TextBox3.Text, Form1.ComboBox1.Text & "." & Form1.ComboBox2.Text & "." & Form1.ComboBox3.Text, Form1.TextBox4.Text, Form1.TextBox5.Text, Form1.TextBox6.Text, Form1.TextBox7.Text, Form1.TextBox8.Text & Form1.CheckBox1.Text & Form1.CheckBox2.Text & Form1.CheckBox3.Text)
        End With

        Form1.TextBox1.Text = ""
        Form1.TextBox2.Text = ""
        Form1.TextBox3.Text = ""
        Form1.TextBox4.Text = ""
        Form1.TextBox5.Text = ""
        Form1.TextBox6.Text = ""
        Form1.TextBox7.Text = ""
        Form1.TextBox8.Text = ""
        

    End Sub

    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button

    'ИНН
    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
        If IsNumeric(TextBox4.Text) Then
        Else
            TextBox4.Text = ""
        End If
    End Sub
    
    
    'добавить
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.Hide()
        Form1.Show()
        Form1.CheckBox1.Text = "100р."
        Form1.CheckBox2.Text = "500р."
        Form1.CheckBox3.Text = "1000р."
    End Sub
    Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents Column2 As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents Column3 As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents Column4 As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents Column5 As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents Column6 As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents Column7 As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents Column8 As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents Column9 As System.Windows.Forms.DataGridViewTextBoxColumn

    'очистить
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        DataGridView1.Rows.Clear()
    End Sub
End Class


я думаю, то что написала программа не столь важно
 
код form2 - то что написала программа
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form2
    Inherits System.Windows.Forms.Form

    'Форма переопределяет dispose для очистки списка компонентов.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Является обязательной для конструктора форм Windows Forms
    Private components As System.ComponentModel.IContainer

    'Примечание: следующая процедура является обязательной для конструктора форм Windows Forms
    'Для ее изменения используйте конструктор форм Windows Form.  
    'Не изменяйте ее в редакторе исходного кода.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
        Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.Column3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.Column4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.Column5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.Column6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.Column7 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.Column8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.Column9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.Database1DataSetBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.Database1DataSet = New WindowsApplication1.Database1DataSet()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.TextBox4 = New System.Windows.Forms.TextBox()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.TextBox3 = New System.Windows.Forms.TextBox()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.TextBox2 = New System.Windows.Forms.TextBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.Button2 = New System.Windows.Forms.Button()
        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Database1DataSetBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Database1DataSet, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.SuspendLayout()
        '
        'DataGridView1
        '
        Me.DataGridView1.AllowUserToAddRows = False
        Me.DataGridView1.AllowUserToDeleteRows = False
        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column1, Me.Column2, Me.Column3, Me.Column4, Me.Column5, Me.Column6, Me.Column7, Me.Column8, Me.Column9})
        Me.DataGridView1.Location = New System.Drawing.Point(12, 12)
        Me.DataGridView1.Name = "DataGridView1"
        Me.DataGridView1.ReadOnly = True
        Me.DataGridView1.Size = New System.Drawing.Size(949, 176)
        Me.DataGridView1.TabIndex = 0
        '
        'Column1
        '
        Me.Column1.Frozen = True
        Me.Column1.HeaderText = "Имя"
        Me.Column1.Name = "Column1"
        Me.Column1.ReadOnly = True
        '
        'Column2
        '
        Me.Column2.HeaderText = "Фамилия"
        Me.Column2.Name = "Column2"
        Me.Column2.ReadOnly = True
        Me.Column2.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
        '
        'Column3
        '
        Me.Column3.HeaderText = "Отчество"
        Me.Column3.Name = "Column3"
        Me.Column3.ReadOnly = True
        '
        'Column4
        '
        Me.Column4.HeaderText = "Дата рождения"
        Me.Column4.Name = "Column4"
        Me.Column4.ReadOnly = True
        '
        'Column5
        '
        Me.Column5.HeaderText = "Серия/номер паспорта"
        Me.Column5.Name = "Column5"
        Me.Column5.ReadOnly = True
        '
        'Column6
        '
        Me.Column6.HeaderText = "ИНН"
        Me.Column6.Name = "Column6"
        Me.Column6.ReadOnly = True
        '
        'Column7
        '
        Me.Column7.HeaderText = "ICCID"
        Me.Column7.Name = "Column7"
        Me.Column7.ReadOnly = True
        '
        'Column8
        '
        Me.Column8.HeaderText = "№ Телефона"
        Me.Column8.Name = "Column8"
        Me.Column8.ReadOnly = True
        '
        'Column9
        '
        Me.Column9.HeaderText = "Лимит SIM-карты"
        Me.Column9.Name = "Column9"
        Me.Column9.ReadOnly = True
        '
        'Database1DataSetBindingSource
        '
        Me.Database1DataSetBindingSource.DataSource = Me.Database1DataSet
        Me.Database1DataSetBindingSource.Position = 0
        '
        'Database1DataSet
        '
        Me.Database1DataSet.DataSetName = "Database1DataSet"
        Me.Database1DataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(91, 19)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(116, 22)
        Me.TextBox1.TabIndex = 1
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.Button1)
        Me.GroupBox1.Controls.Add(Me.TextBox4)
        Me.GroupBox1.Controls.Add(Me.Label4)
        Me.GroupBox1.Controls.Add(Me.TextBox3)
        Me.GroupBox1.Controls.Add(Me.Label3)
        Me.GroupBox1.Controls.Add(Me.TextBox2)
        Me.GroupBox1.Controls.Add(Me.Label2)
        Me.GroupBox1.Controls.Add(Me.Label1)
        Me.GroupBox1.Controls.Add(Me.TextBox1)
        Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
        Me.GroupBox1.Location = New System.Drawing.Point(13, 197)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(213, 170)
        Me.GroupBox1.TabIndex = 2
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Поиск"
        '
        'Button1
        '
        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
        Me.Button1.Location = New System.Drawing.Point(74, 140)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(63, 26)
        Me.Button1.TabIndex = 9
        Me.Button1.Text = "Найти"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(91, 112)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(116, 22)
        Me.TextBox4.TabIndex = 8
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
        Me.Label4.Location = New System.Drawing.Point(44, 115)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(37, 15)
        Me.Label4.TabIndex = 7
        Me.Label4.Text = "ИНН"
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(91, 82)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(116, 22)
        Me.TextBox3.TabIndex = 6
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
        Me.Label3.Location = New System.Drawing.Point(6, 85)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(71, 15)
        Me.Label3.TabIndex = 5
        Me.Label3.Text = "Отчество"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(91, 51)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(116, 22)
        Me.TextBox2.TabIndex = 4
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
        Me.Label2.Location = New System.Drawing.Point(11, 54)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(69, 15)
        Me.Label2.TabIndex = 3
        Me.Label2.Text = "Фамилия"
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
        Me.Label1.Location = New System.Drawing.Point(50, 22)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(35, 15)
        Me.Label1.TabIndex = 2
        Me.Label1.Text = "Имя"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.Button3)
        Me.GroupBox2.Controls.Add(Me.Button2)
        Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
        Me.GroupBox2.Location = New System.Drawing.Point(232, 197)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(220, 170)
        Me.GroupBox2.TabIndex = 4
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "Редактирование таблицы"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(6, 53)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(208, 26)
        Me.Button3.TabIndex = 1
        Me.Button3.Text = "Добавить участника"
        Me.Button3.UseVisualStyleBackColor = True
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(6, 21)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(208, 26)
        Me.Button2.TabIndex = 0
        Me.Button2.Text = "Очистить таблицу"
        Me.Button2.UseVisualStyleBackColor = True
        '
        'Form2
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(973, 372)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.DataGridView1)
        Me.Name = "Form2"
        Me.Text = "Form2"
        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Database1DataSetBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Database1DataSet, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox1.PerformLayout()
        Me.GroupBox2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub
    Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
    Friend WithEvents Database1DataSetBindingSource As System.Windows.Forms.BindingSource
    Friend WithEvents Database1DataSet As WindowsApplication1.Database1DataSet


Пожалуйста помогите!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2013, 14:58
    #38463478
Sergey S
Sergey S
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Datagridview
Не понял что биндится.... по логике датасет должен биндится к гриду. (На работе картинки забанены)
Тогда добавляй в датасете Row а не в грид.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2013, 15:08
    #38463494
Sergey S
Sergey S
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Datagridview
Хотя конечно не понял как связаны форма 1 и 2... (картинок не вижу)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2013, 15:26
    #38463534
Spaiker
Spaiker
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Datagridview
http://savepic.su/3836402.jpg
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2013, 15:32
    #38463549
Sergey S
Sergey S
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Datagridview
У меня на прокси вся мультимедиа порезана, ну и картинки тоже, так что может кто другой что подскажет....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2013, 18:16
    #38463883
Spaiker
Spaiker
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Datagridview
Решил проблему. Просто перенес все на одну форму. Остался вопрос: как сделать поиск по таблице?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2013, 15:15
    #38465181
petalvik
petalvik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Datagridview
SpaikerОстался вопрос: как сделать поиск по таблице?
DataView.RowFilter .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Datagridview / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 500ms
Закрыть
start [/forum/topic.php?fid=20&mobile=1&tid=1403683]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 84ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 318ms
total:  500ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]