想设计一个根据 DataTables("用户权限").DataRow("company")里的公司值(如同一个单元格数据里包含:A公司,B公司,C公司),
然后登陆的用户,根据DataRow("company")的值,只能加载A公司,B公司,C公司的数据,下面写的方法,不知道哪写的不对,请教,谢谢!
Dim Products As List(Of String)
Products = DataTables("用户权限").GetValues("company")
For Each Product As String In Products
Dim sDate As Date = e.form.controls("StartDate").value
Dim eDate As Date = e.form.controls("EndDate").value
For Each dr As DataRow In DataTables("用户权限").Select("',' + name + ',' like '%," & User.Name &",%'" )
If User.Name = dr("name") Then
DataTables("Finance").LoadFilter = "PayrollMothMsg >= '" & sDate & "' And PayrollMothMsg <= '" & eDate & "'and CompanyName like '%" & Product & "%'"
End If
DataTables("Finance").Load()
'这个位置能成功加载数据,但加载的数据,是全部公司(即除A,B,C以外的公司数据也加载出来),然后再执行下面的语句后,数据就清空了
Next
Next