- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗体副本表怎么根据条件来判断其他副本表数据显示内容 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173004)
-- 发布时间：2021/11/10 11:51:00
-- 窗体副本表怎么根据条件来判断其他副本表数据显示内容
窗体副本表，在启动的时候table1.2.3.4-10都无数据
然后根据table9中的数据获取uuid 姓名 在查找是否有符合条件的uuid值的table7表，如果有，提取table7当前数据行的消费编号 然后对应显示table1.2。3.4.5.6.8表中消费编号等于table7当前数据行的消费标号的 数据 反之如果table7数据没有符合uuid的 table1.2。3.4.5.6.8表全部为空
Dim c1 As Integer = Tables("销售主窗体_table9").Count
If c1>0 Then
If Tables("销售主窗体_table9").Current("uuid")<>"" Then
Vars("uuid")=Tables("销售主窗体_table9").Current("uuid")
If Tables("销售主窗体_table9").Current("姓名")<>"" Then
Vars("姓名")=Tables("销售主窗体_table9").Current("姓名")
End If
Tables("销售主窗体_table10").Filter="uuid=\'"&vars("uuid")&"\'"
Tables("销售主窗体_table7").Filter="uuid=\'"&vars("uuid")&"\'"
Dim c11 As Integer = Tables("销售主窗体_table7").Count
If c11>0 Then
If Tables("销售主窗体_table7").Current("消费编号")<> "" Then
Tables("销售主窗体_table1").Filter="消费编号=\'"&Tables("销售主窗体_table7").Current("消费编号")&"\'"
Tables("销售主窗体_table2").Filter="消费编号=\'"&Tables("销售主窗体_table7").Current("消费编号")&"\'"
Tables("销售主窗体_table3").Filter="消费编号=\'"&Tables("销售主窗体_table7").Current("消费编号")&"\'"
Tables("销售主窗体_table4").Filter="消费编号=\'"&Tables("销售主窗体_table7").Current("消费编号")&"\'"
Tables("销售主窗体_table5").Filter="消费编号=\'"&Tables("销售主窗体_table7").Current("消费编号")&"\'"
Tables("销售主窗体_table6").Filter="消费编号=\'"&Tables("销售主窗体_table7").Current("消费编号")&"\'"
Tables("销售主窗体_table8").Filter="消费编号=\'"&Tables("销售主窗体_table7").Current("消费编号")&"\'"
Else
Tables("销售主窗体_table1").Filter="消费编号=\'20202021-000\'"
Tables("销售主窗体_table2").Filter="消费编号=\'20202021-000\'"
Tables("销售主窗体_table3").Filter="消费编号=\'20202021-000\'"
Tables("销售主窗体_table4").Filter="消费编号=\'20202021-000\'"
Tables("销售主窗体_table5").Filter="消费编号=\'20202021-000\'"
Tables("销售主窗体_table6").Filter="消费编号=\'20202021-000\'"
Tables("销售主窗体_table8").Filter="消费编号=\'20202021-000\'"
End If
End If
End If
End If
窗体打开时
窗体有数据时
窗体无数据时
想实现红色箭头部分无数据时，对应的上述table1.2.3.4.5.6不要出现空行 麻烦老师帮忙修正下代码 谢谢！
-- 发布时间：2021/11/10 11:55:00
--
If Tables("销售主窗体_table7").Current("消费编号")<> "" Then
改为
If Tables("销售主窗体_table7").Current.isnull("消费编号") = false Then
-- 发布时间：2021/11/10 12:03:00
-- 回复：（有点蓝）If Tables("销售主窗体_table7").Cur...
问题依旧 还得麻烦老师继续指导下 谢谢！
其中消费编号=\'20202021-000\' 这个是值是不存在的值，目的就是找不存在的 然后就不显示了 不晓得是不是与这个地方有关系！
[此贴子已经被作者于2021/11/10 12:05:52编辑过]
-- 发布时间：2021/11/10 13:30:00
--
Tables("销售主窗体_table1").Filter="消费编号=\'20202021-000\'"
改为
Tables("销售主窗体_table1").Filter="false"