以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  主界面上切换关联表时，主表滚动不停，是做么原因？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145756)
--  作者：有点蓝
--  发布时间：2020/2/7 8:52:00
--  
短信内容表currentchanged这段代码去掉，完全没有必要。父表选中的行肯定是和子表有关的，没有必要再设置

Dim i2 As Date = Tables("短信内容").Current("通知时间")
Dim dr2 As DataRow = DataTables("登记出差").Find("出差起日期 = #" & i2 & "#")
If dr2 IsNot Nothing Then
  Dim wz2 As Integer = Tables("登记出差").Findrow(dr2)
    If wz2 >=0 Then
        Tables("登记出差").Position = wz2
    End If
End If