Foxtable(狐表)用户栏目项目买卖 → 记录窗口与表数据不同步


  共有2889人关注过本帖树形打印复制链接

主题:记录窗口与表数据不同步

帅哥哟,离线,有人找我吗?
zylzdsb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:147 威望:0 精华:0 注册:2020/6/15 16:33:00
记录窗口与表数据不同步  发帖心情 Post By:2020/6/28 17:10:00 [显示全部帖子]

请教请教,我要实现表中点击已结算后,给用户一个提示框,用户选择“是” 按钮后,锁定记录并勾选已结算,如下图1,然后选择“否”以后,就取消锁定与勾选,如下图2,表中能实现这功能,但记录窗口始终不能同步显示,需要点击另一条记录后,再回过去点刚刚修改的那个记录才能看到表与记录窗口都没有勾选,请问这是怎么一回事,如何才能实现这一功能呢?(图2中是点击“否”以后,表中的勾选没有了,但上面的记录窗口的勾选还存在,这样子会给用户一个错觉)

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
 
代码写在datacolchanged 事件里面
If Forms("明细录入").Opened()  Then
    Dim lab7 As WinForm.Label = e.Form.Controls("Label7")
    Dim st As String = "" .PadLeft(1)
    If user.IsRole("结算") = False Then
        If e.DataRow("已结算") = True Then
            e.DataRow("已结算") = False
            MessageBox.Show("你无结算权限","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            e.Cancel = True
        End If
    Else
        Dim chek As WinForm.CheckBox = Forms("明细录入").Controls("CheckBox1")
        If chek.Checked = False '用于批量结算时跳过重复执行下面的消息提示
            Dim Result As DialogResult
            If  e.DataRow("已结算")=True Then
                Result = MessageBox.Show("请确认是否已结算,确认后将锁定此记录不能再修改?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                If Result = DialogResult.Yes Then
                    e.DataRow.Locked  = True
                    e.DataRow("已结算") = True
                    e.DataTable.Save
                Else
                    e.Cancel = True
                    e.DataRow.Locked  = False
                    e.DataRow("已结算") = False
                    
                End If
            End If
            
            
            
            Dim drs As List(Of DataRow)
            drs = DataTables("支出总表").Select("[已结算] = 'false' ")
            If drs.Count -1 >= 0 Then
                chek.Enabled =True
                chek.Checked = False
            End If
        End If
        Dim drss As List(Of DataRow)
        drss = DataTables("支出总表").Select("")
        If drss.Count -1 < 0 Then
            lab7.Text = "共有" &  st &  DataTables("支出总表").DataRows.Count & st & "条记录"
            
        Else
            If  DataTables("支出总表").Compute("sum(未结算金额)") = Nothing Then
                lab7.Text = "共有" &  st &  DataTables("支出总表").DataRows.Count & st & "条记录"  & st & st & "合计金额 :" & st & DataTables("支出总表").Compute("sum(金额)") & "元" & st & ",其中已结算:" & st & DataTables("支出总表").Compute("sum(已结算金额)") & "元"  & st & ",未结算:" & st & "0" &  st & "元"
            Else
                If    DataTables("支出总表").Compute("sum(已结算金额)") = Nothing Then
                    lab7.Text = "共有" &  st &  DataTables("支出总表").DataRows.Count & st & "条记录"  & st & st & "合计金额 :" & st & DataTables("支出总表").Compute("sum(金额)") & "元" & st & ",其中已结算:" & st & "0" & "元"  & st & ",未结算:" & st & DataTables("支出总表").Compute("sum(未结算金额)") & "元"
                Else
                    lab7.Text = "共有" &  st &  DataTables("支出总表").DataRows.Count & st & "条记录"  & st & st & "合计金额 :" & st & DataTables("支出总表").Compute("sum(金额)") & "元" & st & ",其中已结算:" & st & DataTables("支出总表").Compute("sum(已结算金额)") & "元"  & st & ",未结算:" & st & DataTables("支出总表").Compute("sum(未结算金额)") & "元"
                End If
            End If
        End If
    End If
End If

[此贴子已经被作者于2020/6/29 11:28:59编辑过]

 回到顶部