| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 972 人关注过本帖
标题:未找到方法或数据成员 .OriCirId
只看楼主 加入收藏
jianwuqingfe
Rank: 1
等 级:新手上路
帖 子:20
专家分:5
注 册:2011-2-14
结帖率:87.5%
收藏
已结贴  问题点数:10 回复次数:5 
未找到方法或数据成员 .OriCirId
这段修改的代码运行时,提示未找到方法或数据成员
Private Sub Cmd_Modi_Click()
  Dim Pos As Integer
  '判断是否选择了有效的数据
  If Adodc1.Recordset.EOF = True Then
    MsgBox "请选择要修改的记录"
    Exit Sub
  End If
  '保存当前的记录位置
  Pos = Adodc1.Recordset.AbsolutePosition
  With FrmCirEdit
  '设置修改状态
  .Modify = True
  '设置OriId
  .OriCirId = Adodc1.Recordset.Fields(0)
  '读取编号
 .txtBh = Trim(Adodc1.Recordset.Fields(1))
  .txtName = Trim(Adodc1.Recordset.Fields(2))
  .DataComboDep.Text = Trim(Adodc1.Recordset.Fields(3))
 .ComboState = Trim(Adodc1.Recordset.Fields(4))
 .txtMemo1 = Trim(Adodc1.Recordset.Fields(5))

  .Show 1
  End With
  '修改数据后刷新显示
 ' MyCir.Update (OriCirId)
   ' MsgBox ("数据已xiugai")
  RefreshData
  '恢复到回来的位置
  Adodc1.Recordset.Move Pos - 1
End Sub
搜索更多相关主题的帖子: 记录 
2011-02-19 14:21
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 
FrmCirEdit没有OriCirId方法或数据成员

无知
2011-02-19 15:07
jianwuqingfe
Rank: 1
等 级:新手上路
帖 子:20
专家分:5
注 册:2011-2-14
收藏
得分:0 
请教Artless,CirId是自动编号adodc中第一个字段,应该怎么改呢?谢谢!
2011-02-19 16:11
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:10 
以下是引用jianwuqingfe在2011-2-19 16:11:58的发言:

请教Artless,CirId是自动编号adodc中第一个字段,应该怎么改呢?谢谢!

OriCirId是什么?

无知
2011-02-19 16:21
jianwuqingfe
Rank: 1
等 级:新手上路
帖 子:20
专家分:5
注 册:2011-2-14
收藏
得分:0 
OriCirId
是需要修改的编号,问题已解决.
2011-02-21 08:53
gupiao175
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:40
帖 子:1787
专家分:7527
注 册:2007-6-27
收藏
得分:0 
而且在过程Private Sub Cmd_Modi_Click()中并没有FrmCirEdit这个对象的定义或获取,FrmCirEdit这个东西应该是个全局性的对象吧!

Q:1428196631,百度:开发地 即可找到我,有事请留言!
2011-02-21 16:10
快速回复:未找到方法或数据成员 .OriCirId
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.071248 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved