主题：加载表的时候如何设置筛选条件

有一数据表： 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

 条件设置为

Dim filter As String = "操作员 = '" & user.Name & "'"

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