执行程序后，出现：外部名未定义？？

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

dim s as string
s="you field name"

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

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

改为：

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”

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


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

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

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

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


试试看

还是不行！

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

谢谢！