窗体副本表,在启动的时候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不要出现空行 麻烦老师帮忙修正下代码 谢谢!