向高手求教:DataGrid问题,感兴趣的也请进

haplake 2002-08-16 09:57:07
我用两个DataGrid显示两个表,问题
1、点击Datagrid1(table1)中的一条信息,Datagrid2(table2)显示同一编号(GroupId)的table2的信息,这个过程程序怎么实现
我的思路是通过查询实现,还有没有其他方法?
两个表table1和table2是关连表
table1 table2
GroupID(自动获取ID) <----->GroupID
GruopName PName
2、点击Datagrid1的一条记录时怎样返回该条记录的Groupid的值?
3、Datagrid好像有延迟现象,我发现debug.pring datagrid1.text时显示的总是上一条Text,不知怎么回事?怎样解决?
仁者见仁、智者见智,大家切磋切磋.
...全文
42 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
haplake 2002-08-16
  • 打赏
  • 举报
回复
不知道和数据表的关系创建有没有关系,我再试试
feihong0233 2002-08-16
  • 打赏
  • 举报
回复
你怎么写的啊,
这个是我调试过的啊~
而且语法是创建数据窗体向导里的。
haplake 2002-08-16
  • 打赏
  • 举报
回复
语法有问题,提示错误:"违反访问规则"
feihong0233 2002-08-16
  • 打赏
  • 举报
回复
SHAPE {表1的SELECT语句} AS ParentCMD APPEND ({表2的SELECT语句} AS ChildCMD RELATE 表1的ID字段 TO 表2的ID字段) AS ChildCMD"
feihong0233 2002-08-16
  • 打赏
  • 举报
回复
'象这样的
Option Explicit

Private rs As ADODB.Recordset

Private Sub Form_Load()

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "SHAPE {select * from b } AS ParentCMD APPEND ({select * from a} AS ChildCMD RELATE a TO a) AS ChildCMD", "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=G:\a.mdb;", adOpenStatic, adLockPessimistic

Set DataGrid2.DataSource = rs("ChildCMD").UnderlyingValue
Set DataGrid1.DataSource = rs

End Sub
feihong0233 2002-08-16
  • 打赏
  • 举报
回复
设成主细表啊,可不可以?
haplake 2002-08-16
  • 打赏
  • 举报
回复
up
haplake 2002-08-16
  • 打赏
  • 举报
回复
我顶

7,787

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧