有关带参函数调用问题，请教！解答后另外给分

Question

Function coclass()
       
            rstTemp.edit
            rstTemp.Fields(i & j) = rstplan.Fields("coursename") & Space(2) & rstplan.Fields("beginweek") & "-" & rstplan.Fields("endweek") & Space(2) & "周" & Space(2) & rstplan.Fields("gradeid") & "级" & Space(2) & rstclassroom.Fields("classroomid") & vbNewLine & rstteacher.Fields("teachername")
            rstTemp.Update
End Function
上面的函数我想作为一个带参函数调用，rstTemp.Fields(i & j)中的i和j作为参数，因为他们是从其他过程中引入的变量，如果不带参，每次调用时i和j都初始化为0，不能继承过程中的值，很郁闷，请教高手，因为这个函数要调用很多次，造成代码块过多！

Answer 1

Function coclass(Optional ByVal i as string,Optional ByVal j as string)
            rstTemp.edit
            rstTemp.Fields(i & j) = rstplan.Fields("coursename") & Space(2) & rstplan.Fields("beginweek") & "-" & rstplan.Fields("endweek") & Space(2) & "周" & Space(2) & rstplan.Fields("gradeid") & "级" & Space(2) & rstclassroom.Fields("classroomid") & vbNewLine & rstteacher.Fields("teachername")
            rstTemp.Update
End Function------------------真的有分啊？
------------------请说下要返回的哪个值

Answer 2

我不返回值，只是用这个函数块解决把rstplan.Fields("coursename") & Space(2) & rstplan.Fields("beginweek") & "-" & rstplan.Fields("endweek") & Space(2) & "周" & Space(2) & rstplan.Fields("gradeid") & "级" & Space(2) & rstclassroom.Fields("classroomid") & vbNewLine & rstteacher.Fields("teachername")这个之填入相应的记录集的功能

Answer 3

Sub coclass(Optional ByVal i as string,Optional ByVal j as string)
            rstTemp.edit
            rstTemp.Fields(i & j) = rstplan.Fields("coursename") & Space(2) & rstplan.Fields("beginweek") & "-" & rstplan.Fields("endweek") & Space(2) & "周" & Space(2) & rstplan.Fields("gradeid") & "级" & Space(2) & rstclassroom.Fields("classroomid") & vblf & rstteacher.Fields("teachername")
            rstTemp.Update
End Sub

Answer 4

你在调用的时候这样写不就行了coclass i, j