以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自动筛选好卡是为什么  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172711)
--  作者：c39lin
--  发布时间：2021/10/27 12:17:00
--  [求助]自动筛选好卡是为什么
If e.Table.Current Is Nothing Then \'如果Current为Nothing
    Return \'则返回
End If
Dim wz As Integer
Dim dr As DataRow
dr = DataTables("会员表").Find("[会员名] = \'" & e.Table.Current("会员名") & "\'")
If dr IsNot Nothing Then
    wz = Tables("会员表").FindRow(dr)
    If wz >= 0 Then
        Tables("会员表").Position = wz
    End If
End If

按照指南里提供的代码，会员表只有两千多行，现在每次点击订单表都要卡顿个三五秒。。
--  作者：c39lin
--  发布时间：2021/10/27 12:21:00
--  
其实想实现的是点击订单表的某一行后 可以看到这个会员的历史订单信息

是不是有其他更好的方式？

我之前用那个代码是同步光标，然后显示关联表这样。但是太卡顿了。
--  作者：有点蓝
--  发布时间：2021/10/27 13:33:00
--  
会员表currentchanged事件有没有代码

另外查一下就行了，没有必要查2次

If e.Table.Current Is Nothing Then \'如果Current为Nothing
    Return \'则返回
End If
Dim wz As Integer
    wz = Tables("会员表").FindRow("[会员名] = \'" & e.Table.Current("会员名") & "\'")
    If wz >= 0 Then
        Tables("会员表").Position = wz
    End If
--  作者：c39lin
--  发布时间：2021/10/27 14:37:00
--  
会员表里的就是这个代码 改过之后还是卡 但是有快了一两秒
--  作者：c39lin
--  发布时间：2021/10/27 14:39:00
--  
If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("编号") = Nothing
    Else
        Dim bh As String = Format(e.DataRow("日期"),"yyyyMMdd") \'取得编号的8位前缀
        If e.DataRow("编号").StartsWith(bh) = False \'如果编号的前8位不符
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(编号)","日期 = #" & e.DataRow("日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大编号
            If max > "" Then \'如果存在最大编号
                idx = CInt(max.Substring(9,3)) + 1 \'获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 \'否则顺序号等于1
            End If
            e.DataRow("编号") = bh & "-" & Format(idx,"000")
        End If
    End If
End If




If e.DataCol.Name = "订单编号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("订单编号 = \'" & e.NewValue & "\'")
    If dr IsNot Nothing Then
        MessageBox.Show("单号已存在,请核对!")
        e.Cancel = True
    End If
End If








会员表里头还有这两段代码，会是因为这两段导致的卡顿吗？按大大说的改完代码后大概有从3秒的卡顿快进到1.5-2秒的卡顿了。
--  作者：有点蓝
--  发布时间：2021/10/27 14:42:00
--  
点击订单表的某一行切换会员表，代码不是应该放到订单表吗
--  作者：c39lin
--  发布时间：2021/10/27 20:58:00
--  
抱歉 迷糊了 是在订单表没错

会员表里只有这段

If e.DataCol.Name = "会员名" Then
    Dim dr As DataRow 
    dr = e.DataTable.Find("会员名 = \'" & e.NewValue & "\'")
    If dr IsNot Nothing Then
        MessageBox.Show("会员名已登记!")
        e.Cancel = True
    End If
End If
--  作者：有点蓝
--  发布时间：2021/10/28 8:43:00
--  
请上传实例测试