我想要点击一个datagrid2中的某一条记录,datagrid3就显示相应的内容,但现在有两个问题,
1,点后datagrid3不显示,说好象是数据类型怎么的了,代码如下
Private Sub DataGrid2_Click()
hang = DataGrid2.Row + 1
'MsgBox DataGrid2.Col
SQL = "select 子专业 from 专业细目 where 专业代码=" & Trim(hang)
'MsgBox SQL
Set rstZY1 = New ADODB.Recordset
rstZY1.Open SQL, cn, adOpenKeyset, adLockPessimistic
Set DataGrid3.DataSource = rstZY1
DataGrid3.Refresh
End Sub
2、我用msgbox显示点的是datagrid2中的哪条记录,点后当再点下一个的时候,才出上一个,也就是晚一个点击,
请问我该怎么解决?
1,点后datagrid3不显示,说好象是数据类型怎么的了,代码如下
Private Sub DataGrid2_Click()
hang = DataGrid2.Row + 1
'MsgBox DataGrid2.Col
SQL = "select 子专业 from 专业细目 where 专业代码=" & Trim(hang)
'MsgBox SQL
Set rstZY1 = New ADODB.Recordset
rstZY1.Open SQL, cn, adOpenKeyset, adLockPessimistic
Set DataGrid3.DataSource = rstZY1
DataGrid3.Refresh
End Sub
2、我用msgbox显示点的是datagrid2中的哪条记录,点后当再点下一个的时候,才出上一个,也就是晚一个点击,
请问我该怎么解决?
解决方案 »
- 如何在WORD里面写VBA打开EXCEL表
- 已知一个文件名,怎样得到文件的绝对路径(在线等)
- 光盘刻录问题:如何在一张已经刻录过的光盘上继续刻录?
- 关于不能加载控件的问题:我这样处理还是不行,问题究竟错在哪儿?请高手们指点!!!
- VB6处理图像问题,恳请大神帮忙,困惑已久!!!
- mycsdn - CSDN资料库1.20(共享版) - 欢迎大家继续下载试用!
- 菜鸟问题:如何利用光标键选择控件
- 遗留已久的win2k自定义纸张大小(100)
- 我想写一个VB程序,在它运行之前可以加上一些参数…
- 如何用vba判断word的页边距
- 一个关于WINSOCK的问题!!来者有分!!
- 初学者请教各位大侠:在设置ADODB属性页控件中连接ACCESS数据库“用户名称”如何设置?
第二如果你的数据量不大的话,可以尝试用LISTVIEW使用起来容易些
你的这条语句
我认为不好 SQL = "select 子专业 from 专业细目 where 专业代码=" & Trim(hang)
改为:
SQL = "select 子专业 from 专业细目 where 专业代码='" & Trim(hang) &"'"
如果你的行号是专业代码的话
这样做习惯不好
通常我个人不使用DBGRID如果是数据量很大的时候,我也许会使用的
毕竟它是一个敏感数据空件使用起来很别扭