标题:执行程序后,出现:外部名未定义??
只看楼主
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
结帖率:84.62%
 问题点数:0 回复次数:7 
执行程序后,出现:外部名未定义??

执行程序后,出现:外部名未定义??

黄条指向:If Rst.Fields([j(" & jj & ")]) = "银行存款" Then

搜索更多相关主题的帖子: 执行程序 定义 银行 Rst Fields 
2007-08-23 23:03
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 

dim s as string
s="you field name"

if rst.fields(s).value="银行存款" then


我的msn: myfend@
2007-08-23 23:25
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
得分:0 
以下是引用lijun337在2007-8-23 23:03:33的发言:

执行程序后,出现:外部名未定义??

黄条指向:If Rst.Fields([j(" & jj & ")]) = "银行存款" Then

If Rst.Fields("j(" & jj & ")") = "银行存款" Then


VB QQ群:47715789
2007-08-23 23:46
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
得分:0 
改为:

Private Sub Command14_Click()
Dim ii, jj, kk As Integer
For ii = 0 To Rst.RecordCount
For jj = 0 To Rst.Fields.Count
If Rst.Fields("j(" & jj & ")") = "银行存款" Then
If Not Rst.EOF() Then

n.Text = Rst.Fields("n").Value & ""

Text1(0).Text = Rst.Fields("j(" & jj & ")").Value & ""
End If
End If
Next jj
Next ii
End Sub

执行后:在。。。集合中,找不到项目
黄条还是指在:“If Rst.Fields("j(" & jj & ")") = "银行存款" Then”
2007-08-24 20:42
simpson
Rank: 3Rank: 3
等 级:论坛游民
威 望:7
帖 子:863
专家分:17
注 册:2006-11-16
得分:0 



Fields("字段名") or Fields(Index)


所以要知道你的j 是什么东东 才可以替你排错...

[此贴子已经被作者于2007-8-24 21:08:26编辑过]


全国最大的 Java专业电子书免费分享[url]http:///in.asp?id=xrmao[/url]
2007-08-24 21:06
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
得分:0 

DB1。MDB的表FL2里面一共47个字段,

字段名分别为:N、ZY1、Z(1)、J(1)、D(1)、

ZY2、Z(2)、J(2)、D(2)、

。。。

。。。

ZY9、Z(9)、J(9)、D(9)、

JJ就是J(I)里面的I

2007-08-24 21:38
simpson
Rank: 3Rank: 3
等 级:论坛游民
威 望:7
帖 子:863
专家分:17
注 册:2006-11-16
得分:0 
If Rst.Fields("'j(" & jj & ")'") = "银行存款" Then


试试看

全国最大的 Java专业电子书免费分享[url]http:///in.asp?id=xrmao[/url]
2007-08-24 22:17
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
得分:0 
还是不行!

帮我看看《没有实现循环》那个题目!

谢谢!
2007-08-24 23:36



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-165008-1-1.html




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

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