急基础问题难死我在线跪求（50分）

xxxsunxxx 2005-09-13 01:27:38

vb 中的一段sql，代码如下：
strSql = "select fname,ffieldname from t_BasStruct where fitemclassid='" & strNodeClassid & "' order by forderid"
Rs.Open strSql, cnnMydb, adOpenStatic, adLockOptimistic
strbuiltsql = "select " & Trim(Left(strbuiltsql2, Len(strbuiltsql2) - 1)) & strbuiltsql1 & strbuiltsql3
RsBulit.Open strbuiltsql, cnnMydb, adOpenStatic, adLockOptimistic
Rs.MoveFirst
Do While Not Rs.EOF
intLoop = intLoop + 1
.Row = intLoop
.Text = Rs("fname")
.Col = 2
.Text = RsBulit(Rs("ffieldname"))‘此处想把Rs的记录集的结果，放到RsBulit记录集中作为字段名称，然后选出RsBulit的记录集，程序报错，望高手指教
Rs.MoveNext
Loop
Set RsBulit = Nothing
Set Rs = Nothing

...全文

191 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

VBDN 2005-09-14

打赏
举报

/关注/

northwolves 2005-09-14

打赏
举报

str2=select a1,a2,a3,a4 from(select a from A)

leongwong 2005-09-14

打赏
举报

Mark

xxxsunxxx 2005-09-14

打赏
举报

整个代码是这样的，问题也解决了~~~`````
If intNodeFparent <> 0 And intNodeFparent <> 8888 And blnEdit = True Then '修改基础资料
strSql = "select fname,ffieldname from t_BasStruct where fitemclassid='" & strNodeClassid & "' order by forderid"
Rs.Open strSql, cnnMydb, adOpenStatic, adLockOptimistic
strbuiltsql = "select FSQLTableName from t_itemclass where fitemclassid=" & strNodeClassid
RsBulit.Open strbuiltsql, cnnMydb, adOpenStatic, adLockOptimistic
strbuiltsql1 = " from " & RsBulit("FSQLTableName")
RsBulit.Close
Do While Not Rs.EOF
strbuiltsql2 = strbuiltsql2 & Rs("ffieldname") & ","
Rs.MoveNext
Loop
strbuiltsql3 = " where fitemid='" & intNodefitemid & "'"
strbuiltsql = "select " & Trim(Left(strbuiltsql2, Len(strbuiltsql2) - 1)) & strbuiltsql1 & strbuiltsql3
RsBulit.Open strbuiltsql, cnnMydb, adOpenStatic, adLockOptimistic
.MaxRows = Rs.RecordCount
Rs.MoveFirst
Do While Not Rs.EOF
.Col = 1
intLoop = intLoop + 1
.Row = intLoop
.Text = Rs("fname")
.Col = 2
.Row = intLoop
.Text = RsBulit.Fields.Item(intLoop - 1).Value
Rs.MoveNext
Loop
Set RsBulit = Nothing
Set Rs = Nothing
End If

xxxsunxxx 2005-09-13

打赏
举报

顶到有答案

xxxsunxxx 2005-09-13

打赏
举报

谢谢上面两位，可能是我问题没有说清楚，举个简单的列子吧，如下：

str1=select a from A(多条记录集)表A中是记录表Ax的字段结构
RsA.open str1
str2=select a1,a2,a3,a4 from Ax(一条记录集)表Ax是真正想要的信息
RsAx.open str2
Do While Not RsA.EOF
.Text = RsAx(RsA("a"))‘此处想把RsA的记录集的结果，放到RsAx记录集中作为字段名称，然后选出RsAx的记录集，程序报错，望高手指教,就是这里报错！
RsA.MoveNext
Loop
谢谢，着急中！！多谢

再说的明白一点是RsA("a")应返回a1这个值，然后RsAx("a1")才有正确的结果，但是这里实际是不行的，所以请求帮助

xxxsunxxx 2005-09-13

打赏
举报

其实是这样的
假设RsA("a")返回结果为fnumber
而想要RsAx("fnumber")的值，所以写成RsAx(RsA("a"))这个样子，但是程序运行报错，跟踪的情况是这样
RsA("a")确实返回fnumber,但RsAx(RsA("a"))无法返回结果

winehero 2005-09-13

打赏
举报

这里有两个问题可能会导致程序出错（具体什么错，你也没给描述，没办法，我这里是假设了）：
1.RsAx已经为EOF或BOF（有可能RSAX没有数据）
2..Text什么意思?前面没看到With语句. 不知道该Text为何对象的Text属性?

xxxsunxxx 2005-09-13

打赏
举报

顶一下，在线等着呢~~：（

xxxsunxxx 2005-09-13

打赏
举报

xxxsunxxx 2005-09-13

打赏
举报

谢谢上面两位，可能是我问题没有说清楚，举个简单的列子吧，如下：

str1=select a from A(多条记录集)表A中是记录表Ax的字段结构
RsA.open str1
str2=select a1,a2,a3,a4 from Ax(一条记录集)表Ax是真正想要的信息
RsAx.open str2
Do While Not RsA.EOF
.Text = RsAx(RsA("a"))‘此处想把RsA的记录集的结果，放到RsAx记录集中作为字段名称，然后选出RsBulit的记录集，程序报错，望高手指教,就是这里报错！
RsA.MoveNext
Loop
谢谢，着急中！！多谢

conrad_wan 2005-09-13

打赏
举报

如果返回null，这样试试：
.Text = Rs("fname") & ""

winehero 2005-09-13

打赏
举报

我看好像没什么错啊。。。什么错误能否具体点？
跟踪一下吧，是不是Rs("ffieldname")本身返回NULL值等原因？

chaoren119119 2005-09-13

打赏
举报

程序报的什么错，不过从你的程序上来看应该是这个地方错了
strSql = "select fname,ffieldname from t_BasStruct where fitemclassid='" & strNodeClassid & "' order by forderid"

在select 语句中无条件字段fitemclassid
建议改为
strSql = "select fname,ffieldname,fitemclassid from t_BasStruct where fitemclassid='" & strNodeClassid & "' order by forderid"