主题：（求助）表内容莫名变更

表事件

 

科二预约情况_ValidateEdit

 

If e.Col.DroppedDown Then '如果下拉窗口已经打开

    e.Col.CloseDropDown() '则关闭下拉窗口

End If

 

科二预约情况_ChangeEdit

 

If e.Col.Name = "姓名" Then '如果编辑的是客户ID列

    If e.Col.DroppedDown Then '如果下拉窗口已经打开

        Dim tbl As Table = Tables("窗口2_Table1") 

        If e.Text = "" Then '如果内容为空

            tbl.Filter = "" '显示所有客户

        Else '否则根据输入内容进行模糊筛选

            Dim txt As String = "'%" & e.Text & "%'"

            tbl.Filter = "姓名 Like " & txt & " Or 身份证号码 Like " & txt & " Or 联系电话 Like " & txt

        End If

    End If

End If

 

科二预约情况_KeyPressEdit

 

If e.Col.Name = "姓名" Then '如果编辑的是客户ID列

    If e.Col.DroppedDown = False '且下拉窗口没有打开

        e.Col.OpenDropDown() '打开下拉窗口

    End If

End If

 

科二预约情况_KeyDownEdit

 

If e.Col.Name = "姓名" Then '如果编辑的是客户 ID列

    If e.Col.DroppedDown Then '如果下拉窗口已经打开

        Dim tbl As Table = Tables("窗口2_Table1")

        If e.KeyCode = Keys.Up Then '如果按下的是上箭头按键

            tbl.Position = tbl.Position - 1 '向上移动一行

            e.Cancel = True

        ElseIf e.KeyCode = Keys.Down Then '如果按下的是下箭头按键

            tbl.Position = tbl.Position + 1 '向下移动一行

            e.Cancel = True

        End If

    End If

End If

 

科二预约情况_DrawCell

 

If e.Col.Name = "身份证号码" Then

    Dim fdr As DataRow = e.Table.DataTable.Find("身份证号码 = '" & e.Row("身份证号码") & "' and _Identify <> " & e.Row("_Identify"))

    If fdr IsNot Nothing Then

        e.style = "样式1"

    End If

End If

 

 

 

 

这是我这个表内的代码，不知道为什么就这一个表里面的数据偶尔会出现自动擅改，1个星期有两次内容不一样了，我实在找不出原因，鉴于表格现在连接了数据源，不能上传附件了。

<!--EndFragment-->