如何在一个窗体里添加两个Datagrid，选择复选框两个datagrid显示数据 - 编程论坛

#2

owenlu19812014-03-19 23:09

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

#3

gumengyin2014-03-20 08:56

回复 2楼 owenlu1981

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

#4

owenlu19812014-03-20 09:26

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

#5

owenlu19812014-03-20 09:52

回复 3楼 gumengyin

做好的工程发过来看看

#6

gumengyin2014-03-20 14:53

回复 5楼 owenlu1981

以下是我的部分代码
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

#7

owenlu19812014-03-20 15:39

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

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

#8

gumengyin2014-03-20 15:57

回复 5楼 owenlu1981

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

#9

owenlu19812014-03-20 16:07

不客气，我也是起步阶段

#10

gumengyin2014-03-21 21:24

回复 9楼 owenlu1981

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

#11

owenlu19812014-03-21 22:48

mschart 还不熟，问下版主吧