Dim fr As String

fr = e.Form.name & "_"

Dim tdl As WinForm.Table

tdl = e.Form.CreateSQLTable("原料及加工词典", "Select * fro m {原料及加工词典}" ,"C")

tdl.SetBounds(10, 10, 300, 500)

tdl.Visible = False

e.Form.AddControl(tdl)

Dim rs As Table = Tables(fr & "原料及加工词典")

Tables("原料及加工词典_项目分类").DataSource = DataTables(fr & "原料及加工词典")

Dim ks As WinForm.TabControl = e.Form.Controls("项目")

ks.TabPages.Clear

For Each r As Row In rs.Rows

    If r("分类") = "项目分类" Then

        ks.TabPages.Add(r("项目分类"),r("项目分类"))

    End If

Next

Tables("原料及加工词典_项目分类").Filter =  "分类 = \'项目分类\' and 项目分类 = \'" & ks.SelectedPage.Name & "\'"

此主题相关图片如下：01.jpg

为什么重复了，能不能帮我改一下