-- 作者:cnsjroom
-- 发布时间:2022/4/26 14:14:00
-- 窗体sqltables数据筛选不成功……
MessageBox.Show(vars("会议主题uuid"))可以得到值 且有数据行
此主题相关图片如下:1.png
会议议题对应内容行为:
此主题相关图片如下:2.png
主题窗体有sqltable1.2.3
主题窗体打开后事件代码如下:
\'Tables(e.form.name & "_table1").Filter="uuid=\'" & ("会议主题uuid") & "\'" 取消注释后,会议议题这个区域显示为空了
Dim zs1 As Integer = Tables(e.form.name & "_table1").Count If zs1 >0 Then If Tables(e.form.name & "_table1").Current("uuid")<>"" Then vars("议题uuid")=Tables(e.form.name & "_table1").Current("uuid") vars("议题标题")=Tables(e.form.name & "_table1").Current("议题标题") Tables(e.form.name & "_table2").Filter="uuid=\'" & Tables(e.form.name & "_table1").Current("uuid") &"\'and 会议主题=\'" & Tables(e.form.name & "_table1").Current("议题标题") &"\'" Else Tables(e.form.name & "_table2").Filter="uuid=\'XXXXXXX\'and 会议主题=\'" & Tables(e.form.name & "_table1").Current("议题标题") &"\'" vars("议题uuid")="" vars("议题标题")="" End If Else Tables(e.form.name & "_table2").Filter="uuid=\'XXXXXXX\' and 会议主题=\'" & Tables(e.form.name & "_table1").Current("议题标题") &"\'" End If
主题窗体打开后会议议题显示了全部的议题 怎么修正为窗体加载后 会议议题显示uuid=会议主题uuid的值数据行呢?
此主题相关图片如下:3.png
[此贴子已经被作者于2022/4/26 14:27:58编辑过]
|