- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 多项查询功能求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104154)
-- 发布时间：2017/7/24 16:19:00
-- 多项查询功能求助
向老师求助，做了一个人员信息（年龄、职业资格证、等级）多项复合查询控件，但没成功，请老师帮助，代码如下：
Dim cmb As WinForm.ComboBox = e.form.Controls("nl")
Dim tbx As WinForm.TextBox = e.Form.Controls("zjmc")
Dim cmb1 As WinForm.ComboBox = e.form.Controls("jb")
Dim filter As String = "1=1"
If cmb.Text > "" Then
filter &= " and 年龄=\'"& cmb.text &"\'"
End If
If tbx.Text > "" Then
filter &= " and 证件名称=\'"& tbx.text &"\'"
End If
If cmb.Text > "" Then
filter &= " and 等级=\'"& cmb1.text &"\'"
End If
Tables("证件管理").filter = filter
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
-- 发布时间：2017/7/24 16:44:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.table |
-- 发布时间：2017/8/2 16:59:00
--
还有个问题向老师请教 ，我添加个导出和打印按钮，请问老师这2个按钮代码怎么写，谢谢
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2 (1111).table |
-- 发布时间：2017/8/2 17:59:00
--
导出打开
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("证件管理").SaveExcel(dlg.FileName, "证件") \'保存文件
Dim proc As new Process
proc.file = dlg.FileName
proc.start
End If
打印
Tables("证件管理").Print(True, False)
\'Tables("证件管理").Print(False, False)