以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Label15绑定  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95688)
--  作者：yangwenghd
--  发布时间：2017/2/1 8:53:00
--  Label15绑定
Label15绑定 Table1状态列 ，
如果状态列内容 全部都是未学习   Label15 显示为“未学习” 如果状态列  只要有一行是“学习中” Label15显示为学习中，如果状态列全部为 已学习 Label15显示为 已学习  感谢 感谢 
Table1 状态列 ：
全部是未学习  Label15显示为 未学习 
只要有一行是学习中，Label15显示为 学习中 
全部是已学习，Label15 显示为  已学习 
感谢 噶厦 
--  作者：有点色
--  发布时间：2017/2/2 10:08:00
--  

不要绑定列。

 

窗口afterLoad事件写代码

 

Dim dt As DataTable = DataTables("表A")
Dim count As Integer = dt.compute("count(_Identify)", "状态 = \'学习中\'")
If count >= 1 Then
    forms("窗口1").controls("label1").Text = "学习中"
Else
    count = dt.compute("count(_Identify)", "状态 = \'未学习\'")
    If count = dt.datarows.count Then
        forms("窗口1").controls("label1").Text = "未学习"
    Else
        forms("窗口1").controls("label1").Text = "已学习"
    End If
End If
--  作者：yangwenghd
--  发布时间：2017/2/2 13:51:00
--  
为什么改到窗口就不对了呢 感谢 感谢 

Dim dt As DataTable = With Tables("课文窗口_Table1")
Dim count As Integer = dt.compute("count(_Identify)", "目录_状态 = \'学习中\'")
If count >= 1 Then
    forms("课文窗口").controls("Label07").Text = "学习中"
Else
    count = dt.compute("count(_Identify)", "目录_状态 = \'未学习\'")
    If count = dt.datarows.count Then
        forms("课文窗口").controls("Label07").Text = "未学习"
    Else
        forms("课文窗口").controls("Label07").Text = "已学习"
    End If
End If
--  作者：有点色
--  发布时间：2017/2/2 16:30:00
--  
Dim dt As Table = Tables("课文窗口_Table1")
Dim count As Integer = dt.compute("count(_Identify)", "目录_状态 = \'学习中\'")
If count >= 1 Then
    forms("课文窗口").controls("Label07").Text = "学习中"
Else
    count = dt.compute("count(_Identify)", "目录_状态 = \'未学习\'")
    If count = dt.Rows.count Then
        forms("课文窗口").controls("Label07").Text = "未学习"
    Else
        forms("课文窗口").controls("Label07").Text = "已学习"
    End If
End If