以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  下列代码如何修改为“内部函数”？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6794)
--  作者：xl
--  发布时间：2010/4/25 21:47:00
--  下列代码如何修改为“内部函数”？
    For Each dr1 As Datarow In DataTables("成绩分析").DataRows
        Dim dr2 As DataRow = DataTables("成绩分析历史").Find("班级 = " & "\'" & dr1("班级") & "\'And 姓名 = " & "\'" & dr1("姓名") & "\' And [月份] = \'"& e.Form.Controls("ComboBox1").text & "\'")
        If dr2 IsNot Nothing Then
            dr1("上次级名") = dr2("总分级名")
        End If
        dr1("级名升降")=dr1("上次级名")-dr1("总分级名")
    next

上列代码中“[月份] = \'"& e.Form.Controls("ComboBox1").text & "\'”不知有无办法修改？
--  作者：czy
--  发布时间：2010/4/26 1:41:00
--  

将e.Form改成Forms("窗口名称")不就行了。