参考：http://www.foxtable.com/webhelp/topics/1457.htm
检查内容表prepareedit事件
If e.IsFocusCell andalso e.row.isnull("检查类型")=false Then '如果是焦点所在单元格
If e.Col.Name = "日常性组织级别" orelse e.Col.Name = "综合性组织级别" orelse e.Col.Name = "专项性组织级别" Then
dim ss as string = e.row("检查类型")
dim n as string = e.Col.Name.replace("组织级别","")
if ss.contains(n)
e.Col.Combolist = DataTables("检查类型表").GetComboListString("组织级别", "[类型] = '" & n & "'")
else
e.Col.Combolist =nothing
end if
End If
End If
检查内容表datacolchanged事件
if e.datacol.name = "检查类型"
if e.newvalue > "" then
for each s as string in {"日常性","综合性",""专项性}
if e.newvalue.contains(s) =false then
e.datarow(s & "组织级别")=nothing
end if
else
e.datarow("日常性组织级别")=nothinge.datarow("综合性组织级别")=nothing
e.datarow("专项性组织级别")=nothing
加好友 
发短信
Post By：2025/3/6 12:47:00 [只看该作者]
