[求助]导入列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]导入列

共有16836人关注过本帖平板打印复制链接主题：[求助]导入列

扶风

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00

Post By：2016/9/9 13:11:00 [只看该作者]

Dim Filter As String = "(工位 In ('" & Forms("岗位").Controls("CheckedcomboBox1").Text.Replace(",", "','") & "'))"

drs = DataTables("汇总表").Select(Filter,"工位,日均产量 DESC")

idx2 = Math.Min(DataTables("汇总表").dataRows.Count -1,idx2) 'idx2不能超过表的最大行数

Dim pgs As Integer = math.Ceiling(DataTables("汇总表").DataRows.Count / 12)

老师，如上2段代码中的DataTables("汇总表")能否换成drs的内容？即筛选后的汇总表？

总数 167 1 2 3 4 5 6 7 8 9 10 下一页 ..17

主题：[求助]导入列