打开项目时先对“系统编号”表进行有条件加载相关数据。已解决1、在项目事件LoadUserSetting中
'========按归属部门进行数据加载==========
Dim fdr As DataRow = DataTables("Users").Find("Name = '" & User.Name & "'")
If User.Type = UserTypeEnum.User Then
If fdr IsNot Nothing Then
If fdr("归属部门").Contains("总公司") = False Then
DataTables("系统编号").LoadFilter = "归属部门 = '" & fdr("归属部门") & "'"
Else
DataTables("系统编号").LoadFilter = ""
End If
End If
Else
DataTables("系统编号").LoadFilter = ""
End If
DataTables("系统编号").Load()
2、打开项目时“招标信息表“不加载数据，当“系统编号表”加载了相关数据后，”招标信息表“根据”系统编号表“中的”系统编号“列的数据进行加载？如何在项目事件中进行编写，写在哪个事件中？
Dim st As String = DataTables("系统编号").GetComboListString("系统编号")
st = st.Replace("|","','")
DataTables("招标信息").LoadFilter = "系统编号 In
('" & st
& "')"
DataTables("招标信息").Load()
[此贴子已经被作者于2019/1/6 18:28:33编辑过]
加好友 
发短信
Post By：2019/1/6 17:01:00 [显示全部帖子]
