标题：下列代码如何修改为“内部函数”？

1楼

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 & "'”不知有无办法修改？

2楼

czy 发表于：2010/4/26 1:41:00

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

共2 条记录, 每页显示 10 条, 页签: [1]

[Full] 完整版
[Rss] 订阅
[Xml] 无图版
[Xhtml] 无图版