想要在一个窗体里添加两个datagrid，主要是想要做个数据对比，放在两个datagrid对比的话会比较清晰，
用了复选框，原想想着选择两个复选框，datagrid都会显示数据，但是发现选择一个后在选另一个后，头一个的
数据就没有了。我的数据来源是不同的表，没有交叉。希望大神指教

用一个DataGrid直接显示数据不同的记录就可以了，何必要用肉眼去看！

难道不可以用两个datagrid么？
把不同的数据放在一个里面感觉不是很好，因为我的数据还挺多的，主要想在一个窗体中起到查看又对比的功能

2个是可以，不过用系统显示数据，再通过人工去检查就失去了系统存在的意义了，特别是数据量大的
1个DataGrid也可以只显示数据不一样的列，不需要全部显示

做好的工程发过来看看

以下是我的部分代码
Private Sub check1_click()
If Rs.State = 1 Then
  Rs.Close
End If
If Combo1.Text = "" Then
   MsgBox "品牌名称不能为空,请重新输入!", 16, "提示"
   Combo1.SetFocus
   Exit Sub
Else
   SQL = "SELECT * FROM 驾驶室偏频参数对比 WHERE 品牌='" & Combo1.Text & "' and 驱动形式='" & Combo3.Text & "'  and 平台='" & Combo2.Text & "' and 减震形式='" & Combo5.Text & "' and 悬置形式='" & Combo4.Text & "' "
   Rs.Open SQL, conn, 1, 1
   If Rs.RecordCount > 0 Then
     DataGrid1.AllowAddNew = False
     DataGrid1.AllowDelete = False
     DataGrid1.AllowUpdate = False
     Set DataGrid1.DataSource = Rs
     Exit Sub
   Else
     MsgBox "输入有误,请重新输入!", 16, "提示"
     Rs.Close
  End If
End If

End Sub

Private Sub check2_click()
If Rs.State = 1 Then
  Rs.Close
End If
If Combo6.Text = "" Then
   MsgBox "品牌名称不能为空,请重新输入!", 16, "提示"
   Combo6.SetFocus
   Exit Sub
Else
   SQL = "SELECT * FROM 驾驶室偏频参数对比2 WHERE 品牌='" & Combo6.Text & "' and 驱动形式='" & Combo7.Text & "'  and 平台='" & Combo10.Text & "' and 减震形式='" & Combo9.Text & "' and 悬置形式='" & Combo8.Text & "' "
   Rs.Open SQL, conn, 1, 1
   If Rs.RecordCount > 0 Then
     DataGrid2.AllowAddNew = False
     DataGrid2.AllowDelete = False
     DataGrid2.AllowUpdate = False
     Set DataGrid2.DataSource = Rs
     Exit Sub
   Else
     MsgBox "输入有误,请重新输入!", 16, "提示"
     Rs.Close
  End If
End If

End Sub

第二次查询时，Rs 被关闭，导致 DataGrid1 的数据源丢失
解决办法，使用两个记录源 Rs & Rs_1
DataGrid1对应Rs
DataGrid2对应Rs_1

[ 本帖最后由 owenlu1981 于 2014-3-20 15:53 编辑 ]

我已经弄好了，谢谢你啊，以后还会有问题，请多多指教

不客气，我也是起步阶段

弱弱的问下，mschart中如何画多条直线，数据来源于SQL