以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  下列代码如何修改为“内部函数”?  (http://foxtable.com/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("窗口名称")不就行了。