Foxtable(狐表)用户栏目专家坐堂 → 选中行后其他表也自动选中行有问题,帮忙排查


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

主题:选中行后其他表也自动选中行有问题,帮忙排查

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


加好友 发短信
等级:超级版主 帖子:107813 积分:548416 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/23 21:13:00 [显示全部帖子]

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
Dim zjzh As Integer
Dim zjzh1 As DataRow
zjzh1 = DataTables("原始数据中间转换").Find("[引用] = '" & e.Table.Current("_IDENTIFY") & "'")
If zjzh1 Is Nothing Then
    Dim drs As List(of DataRow) = DataTables("原始数据中间转换").AppendLoad("[引用] = '" & e.Table.Current("_IDENTIFY") & "'")
    If drs.count = 0 Then
        Return
    Else
        zjzh1 = drs(0)
    End If
End If
zjzh = Tables("原始数据中间转换").FindRow(zjzh1)
If zjzh >= 0 Then
    Tables("原始数据中间转换").Position = zjzh
End If

 回到顶部