设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2724|回复: 4
打印 上一主题 下一主题

[与其它组件] 谁用过janus gridex,交流一下,看看这种情况怎么办

[复制链接]
跳转到指定楼层
1#
发表于 2006-6-30 03:29:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
这几天 一直研究access,为了能使用折叠grid,所以想起来以前有个控件,janus

gridex能实现,所以装上了,在vb中我已经通过help建立了工程,但是在access中,我发现,通过修改自带属性也能使用,但是数据库不能是当

前数据库,比如说,db1.mdb中有个表“user".当时在db1.mdb中的窗体中使用janus

gridex却无法访问”user"表,无法使用currentproject.connection.


不知道那位老大用过,能不能交流一下。谁用过janus gridex控件,好像版主用过????


估计是配置的问题,就是不知道如何确定数据源。





分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
发表于 2006-6-30 04:41:00 | 只看该作者
这个控件有专门针对Access的版本。但具体如何使用,没有研究过。
3#
发表于 2010-6-10 16:54:13 | 只看该作者
Dim grobject As GridEX
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sqlstr As String
Set cn = CurrentProject.Connection
Set grobject = Me.GridEX9.Object
grobject.DatabaseName = cn
'grobject.DataMode = jgexADO
MsgBox grobject.DatabaseName
sqlstr = "up_cl_v所有请购单_Cost_Fnd  '" & Me.datebegin & "','" & Me.dateend & "','" & Me.Buyer & "','" & Me.BuyTeam & "','" & Me.BuyDept & "','" & Me.Whs & "'"
'日期,采购员,采购组,采购部门,仓库
Set rs = cn.Execute(sqlstr)
MsgBox rs.RecordCount '有12条记录
grobject.HoldFields
Set grobject.Recordset = rs'运行到这句的时候显示类型不匹配.不知道是什么原因.我是用在ADP中的.
4#
发表于 2010-6-15 17:56:04 | 只看该作者
哦,原来把这行去掉就可以了.grobject.HoldFields
5#
发表于 2010-6-16 12:55:56 | 只看该作者
楼主
请教个问题
逐个字段赋值可以吗
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-17 05:36 , Processed in 0.089185 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表