Foxtable(狐表)用户栏目专家坐堂 → 我这个代码有问题吗,老大?


  共有3402人关注过本帖平板打印复制链接

主题:我这个代码有问题吗,老大?

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


加好友 发短信
等级:小狐 帖子:307 积分:2557 威望:0 精华:0 注册:2012/7/8 23:19:00
我这个代码有问题吗,老大?  发帖心情 Post By:2014/2/21 20:11:00 [只看该作者]

Dim rr As Integer
rr = Tables("原始名单快捷方式表").Find("'" & e.Sender.Text & "'", 0, "快捷方式名称", False, False, True)
If rr > -1 Then
Tables("原始名单快捷方式表").Position = rr
Tables("展会信息").Filter = "'" & Tables("原始名单快捷方式表").Rows(rr)("快捷方式展会") & "'" 
Tables("展会信息.原始名单").Filter = "'" & Tables("原始名单快捷方式表").Rows(rr)("快捷方式名单") & "'" 
End If

 回到顶部