masoudcarpet
شنبه 07 آبان 1390, 01:10 صبح
من میخوام مغایرت دو تا دیتا گرید رو بگیرم و در دیتاگرید 3 اونها رو ببینم ولی هر وقت به یک مورد مغایرت میرسم جایگزین قبلی میشه و سطر جدیدی ایجاد نمیشه لطفا کد منو کامل کنیدمخصوصا چند خط آخر
PrivateSub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim dt AsNewDataTable
Dim conStr AsString = "Server=.;Database=test;Trusted_Connection = yes"' نام سرور و دیتابیس
Dim da AsNewSqlDataAdapter("Select * from " + ComboBox2.Text + " ", conStr)
da.Fill(dt)
ListBox1.DataSource = dt
ListBox1.DisplayMember = "f2"
'''''''''''''''''''''''''''''''''''''
Dim i AsInteger
For i = 0 To dt.Rows.Count - 1
Dim dt1 AsNewDataTable
Dim dt2 AsNewDataTable
ListBox1.SelectedIndex = (i)
Dim da1 AsNewSqlDataAdapter("Select * from " + ComboBox1.Text + " where f2 = '" & ListBox1.Text & "'", conStr)
da1.Fill(dt1)
'''''''''''''''''''''''''''''''
If dt1.Rows.Count = "0"Then
Dim da2 AsNewSqlDataAdapter("Select * from " + ComboBox2.Text + " where f2 = '" & ListBox1.Text & "'", conStr)
da2.Fill(dt2)
DataGrid3.DataSource = dt2
EndIf
Next
EndSub
PrivateSub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim dt AsNewDataTable
Dim conStr AsString = "Server=.;Database=test;Trusted_Connection = yes"' نام سرور و دیتابیس
Dim da AsNewSqlDataAdapter("Select * from " + ComboBox2.Text + " ", conStr)
da.Fill(dt)
ListBox1.DataSource = dt
ListBox1.DisplayMember = "f2"
'''''''''''''''''''''''''''''''''''''
Dim i AsInteger
For i = 0 To dt.Rows.Count - 1
Dim dt1 AsNewDataTable
Dim dt2 AsNewDataTable
ListBox1.SelectedIndex = (i)
Dim da1 AsNewSqlDataAdapter("Select * from " + ComboBox1.Text + " where f2 = '" & ListBox1.Text & "'", conStr)
da1.Fill(dt1)
'''''''''''''''''''''''''''''''
If dt1.Rows.Count = "0"Then
Dim da2 AsNewSqlDataAdapter("Select * from " + ComboBox2.Text + " where f2 = '" & ListBox1.Text & "'", conStr)
da2.Fill(dt2)
DataGrid3.DataSource = dt2
EndIf
Next
EndSub