以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  加载表的时候如何设置筛选条件  (http://foxtable.com/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 & "\'"

 条件设置在哪里,楼主可以自己弄一下。第一个问题解决了,第二个问题的导出,就不需要设置条件了。