with e.Form
    Dim cmd As New SQLCommand  
    Dim dt As DataTable   
    Dim cmb1 As WinForm.ComboBox  
    Dim cmb2 As WinForm.ComboBox  
    cmb1 = .Controls("ComboBox1")  
    cmb2 = .Controls("ComboBox2") 
    If DataTables("员工资料").DataCols(cmb2.Value). IsDate  Then  
        If .Controls("DateTimePicker1").Value Is Nothing Orelse .Controls("DateTimePicker2").Value Is Nothing Then 
            Messagebox.Show("请输入完整日期","提示") 
            Return 
        End If
        cmd.CommandText = "Select * from {员工资料} where " & cmb2.Value & " BETWEEN #" & .Controls("DateTimePicker1").Value & "# AND #"  & .Controls("DateTimePicker2").Value & "#"  \'\'
    Else
        cmd.CommandText = "Select * from {员工资料} where " & cmb2.Value & " = \'" & cmb1.Value & "\'"
    End If
    dt = cmd.ExecuteReader() 
    Dim dst As WinForm.DataList = .Controls("DataList1")  
    dst.DataTable = dt
    dst.Build()
    .Controls("Label2").Text = dst.Count 
end with


上面是一个筛选按钮代码，请教，筛选后如何将筛选出的数据生成一个新的数据表。

劳驾贺老师了，此代码好像没有反应，请看查询表窗口的“筛选生成新表”按钮。

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

点击浏览该文件:管.table

要加两句代码，已经搞定。