Foxtable(狐表)用户栏目专家坐堂 → [求助]请教一个代码怎么写;


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

主题:[求助]请教一个代码怎么写;

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


加好友 发短信
等级:一尾狐 帖子:427 积分:4529 威望:0 精华:0 注册:2012/3/7 23:19:00
  发帖心情 Post By:2015/10/5 20:41:00 [显示全部帖子]

Dim jh As List(of DataRow) = DataTables("表A").Select("数字列1 = 1")
Dim flt As String
For Each xh As DataRow In jh
  Dim i As Integer = Tables("表A").FindRow(xh)
  flt = flt & "," & Tables("表A").Rows(i+1)("编号列")
Next
flt = flt.trim(",")                 
Tables("表A").Filter = "编号列 in (" & flt & ")"    


 回到顶部