当学期数大于3个学期，保留3个学期，学期数小于3个学期保留原数，代码怎么改，请指教，谢谢

With e.Sender
    .ShowContextStrip(0, .Height, e.Form.Strips("选择学期"))
End With

cmd.C
cmd.CommandText = "Se lect  学期 From {学生转学}"
dt = cmd.ExecuteReader()

If e.Form.Strips.Contains("选择学期") Then
    e.Form.Strips("选择学期").Items.Clear() \'清除原来的项目
    For Each bj As String In dt.GetValues("学期","","学期 Desc")
        e.Form.Strips("选择学期").Items.Add(bj, bj, "", StripItemTypeEnum.MenuItem)
    Next
End If

还有个问题，想请教红色部分代码

Dim t As Table = e.Form.controls("Table1").Table
Sele ct Case e.StripItem.Name
    Case "e.Form.Strips("选择学期").Items.Name"
        t.Fill("Se lect  学期 From {学生转学}" WHERE 学期 = \'"& e.Form.Strips("选择学期").Items.Name &"\'","数据库", True)
End Select

这样可以吗?

Dim t As Table =e.Form.controls("Table1").Table
For Each sit As WinForm.StripItem In e.Form.Strips("选择学期").Items
    If sit.Name =  e.StripItem.Text  Then
        t.Fill("Se lect  学期 From {学生转学} WHERE 学期 = \'" & e.StripItem.Text &"\'","数据库", True)
    End If
Next

Dim t As Table = e.Form.controls("Table1").Table
If e.StripItem.parentItem IsNot Nothing AndAlso e.StripItem.parentItem.Name = "选择学期" Then
    t.Fill("Select  学期 From {学生转学} WHERE 缴费项目 = \'" & e.StripItem.Name & "\'","数据库", True)
End If

请师傅帮我看看，错在哪

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目17.zip