| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 332 人关注过本帖
标题:请教使用控件ADODC问题,
只看楼主 加入收藏
dabeixiong
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2009-2-20
结帖率:100%
  问题点数:0  回复次数:4   
请教使用控件ADODC问题,
   Z1 = Val(Text1(0)): Z2 = Val(Text1(1))
   If Check3 = 0 Then                                                         '自动计算切向变位系数
     sb = Z2 / Z1
     Adodc1.Visible = False
     Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\biao1.mdb;Persist Security Info=False"
     Adodc1.RecordSource = "select * from qx where A<=" & Z1 & " and B>=" & Z1 & " and C<=" & sb & " and D>=" & sb
     Set DataGrid1.DataSource = Adodc1
     Text1(8) = Adodc1.Recordset.Fields(1).Value
     Adodc1.Refresh
     DoEvents
   Else
     Xt = Val(Text1(8))                                                          '自定义切向变位系数
   End If
   访问数据文件,首次输入Z2=34,Z1=21,Text1(8)=0,但改变Z1=6时,计算一次Text1(8)却还是原来的0,正确答案是0.265,而我再计算一次,才能是0.265,为什么要计算二次才能得到正确的答案,我之前都好计算一次,现在不知道什么原因,都要计算二次。请帮忙看下
2018-12-30 10:58
dabeixiong
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2009-2-20
  得分:0 
回复 楼主 dabeixiong
,当改变时,第一次Text1(8) = Adodc1.Recordset.Fields(1).Value,没有改变,第二次才能有效
2018-12-30 11:00
dabeixiong
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2009-2-20
  得分:0 
帮忙看下,找不到原因


[此贴子已经被作者于2018-12-30 11:20编辑过]

附件: 您没有浏览附件的权限,请 登录注册
2018-12-30 11:16
wmf2014
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:166
帖 子:1753
专家分:9844
注 册:2014-12-6
  得分:0 
将语句顺序调一下即可:
     Set DataGrid1.DataSource = Adodc1
     Text1(8) = Adodc1.Recordset.Fields(1).Value
     Adodc1.Refresh
修改为
     Adodc1.Refresh
     Set DataGrid1.DataSource = Adodc1
     Text1(8) = Adodc1.Recordset.Fields(1).Value

Adodc1.Refresh语句相当于让控件执行sql查询,你还没有执行就取值当然得不到正确值。

能编个毛线衣吗?
2018-12-30 13:25
dabeixiong
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2009-2-20
  得分:0 
回复 4楼 wmf2014
非常感谢
2018-12-30 14:21







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

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