以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 加载表的时候如何设置筛选条件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26809) |
-- 作者:hlm -- 发布时间:2012/12/14 16:51:00 -- 加载表的时候如何设置筛选条件 有一数据表: 1.目前是“A操作员"只能修改A的数据,但可见B的数据,我想修改为:A操作员只能见到或修改A的数据,不能见到B的数据,请问在加载表的时候如何设置条件 2.导出EXCEL那里也要设置条件,只能导出自己操作的数据,A只能导出A的,不能导出B的 代码如下,应当如何修正:
修改按键的代码:对应Button2
If e.Row("操作员") = User.Name Then Forms("产量表设置").Controls("Button2").Enabled = True Else Forms("产量表设置").Controls("Button2").Enabled = False End If
导出EXCEL的代码:对应Button5
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim ex As New Exporter ex.SourceTableName = "产量表" \'指定导出表 ex.filepath = dlg.FileName \'指定目标文件 ex.Format = "Excel" \'导出格式为Excel ex.Filter = "" \'指定导出条件 ex.Export() \'开始导出 MessageBox.Show("数据导出成功!","提示!") End If 此主题相关图片如下:捕获1.jpg |
-- 作者:lin_hailun -- 发布时间:2012/12/14 17:11:00 -- 条件设置为 Dim filter As String = "操作员 = \'" & user.Name & "\'" 条件设置在哪里,楼主可以自己弄一下。第一个问题解决了,第二个问题的导出,就不需要设置条件了。 |