共8 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：条件表达式根据其他列筛选下拉内容，要怎么写？
1楼
13568406997 发表于：2025/2/21 9:26:00
这里后边本表的列名，怎么填呢？
2楼
有点蓝 发表于：2025/2/21 10:01:00没看懂，要做什么筛选？请详细说明
3楼
13568406997 发表于：2025/2/21 10:02:00按员工表中，部门名称等于本表当前行的部门名称，来选择这个部门的员工，要怎么写
4楼
13568406997 发表于：2025/2/21 10:03:00把其他部门的过滤掉
5楼
13568406997 发表于：2025/2/21 10:04:00在维修人员这列下拉选择本部门员工
6楼
有点蓝 发表于：2025/2/21 10:12:007楼
有点蓝 发表于：2025/2/21 10:14:00If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行
If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
Dim r As Row = e.Table.Rows(e.NewRange.Rowsel) '获得新选择的行
Dim dmp As New TableDataMap
dmp.DataTable = "客户" '指定数据来源表
dmp.ValueCol = "ID" '指定取值列
dmp.DisplayCol = "公司" '指定显示列
'指定下拉列表时显示哪些列的数据
dmp.ListCols = "ID,公司,姓氏"
dmp.Sort = "城市" '指定排序方式
If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
Dim r As Row = e.Table.Rows(e.NewRange.Rowsel) '获得新选择的行
Dim dmp As New TableDataMap
dmp.DataTable = "客户" '指定数据来源表
dmp.ValueCol = "ID" '指定取值列
dmp.DisplayCol = "公司" '指定显示列
'指定下拉列表时显示哪些列的数据
dmp.ListCols = "ID,公司,姓氏"
dmp.Sort = "城市" '指定排序方式
dmp.filter = "部门名称='" & r("部门名称") & "' "
e.Table.Cols("维修人员").DataMap = dmp.CreateDataMap() '生成并设置DataMap
End If
End If
End If
End If
8楼
13568406997 发表于：2025/2/21 10:17:00好的
共8 条记录, 每页显示 10 条, 页签:
[1]