在项目事件MainTableChanged 添加以下代码获取 没有排课的课程编号列表If MainTable.Name = "排课登记表" Then
Dim dmp As New TableDataMap
dmp.DataTable = "课程缴费表" '指定数据来源表
dmp.ValueCol = "缴费编号" '指定取值列
dmp.DisplayCol = "缴费编号" '指定显示列
'指定下拉列表时显示哪些列的数据
dmp.ListCols = "缴费编号,是否排课,缴费日期,学号,姓名,收费名称,科目,课程,等级,总周数,每周课时,课时数"
dmp.Sort = "缴费日期" '指定排序方式
dmp.Filter = "[是否排课] = '否' "
Tables("排课登记表").Cols("缴费编号").DataMap = dmp.CreateDataMap() '生成并设置DataMap
End If
排课登记表进行排课操作以后 会把课程缴费表对应的缴费编号的行 是否排课列 变成(是)
这时候再回到排课登记表, 已经填入的编号会消失,不显示.
请指教.
[此贴子已经被作者于2020/10/24 8:40:46编辑过]