Foxtable(狐表)用户栏目专家坐堂 → 批量加载表时,指定表名和表标题


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

主题:批量加载表时,指定表名和表标题

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


加好友 发短信
等级:小狐 帖子:398 积分:2369 威望:0 精华:0 注册:2017/3/19 15:30:00
批量加载表时,指定表名和表标题  发帖心情 Post By:2018/7/21 14:05:00 [显示全部帖子]

现需要根据指定表(表1的名称:DD02L  表1的标题:SAP表、 表2的名称:T001  表2的标题:公司代码)批量加载表,且加载时设置好表名称和表标题Dim str1s As String  = "dd02l|SAP表,t001|公司代码"
For Each str1 As String In str1s.Split(",")
    Dim qb As new QueryBuilder
    qb.C
    qb.TableName = str1(0)
    qb.TableCaption = str1(1)
    qb.SelectString = "select * f rom sapprd." & str1(0) & ""
    qb.Build
Next
请问下上述代码为什么问题?


 回到顶部
帅哥哟,离线,有人找我吗?
wtfwsk05
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:398 积分:2369 威望:0 精华:0 注册:2017/3/19 15:30:00
  发帖心情 Post By:2018/7/21 21:36:00 [显示全部帖子]

请问下上述语句如何限制加载数据的加载量

 回到顶部
帅哥哟,离线,有人找我吗?
wtfwsk05
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:398 积分:2369 威望:0 精华:0 注册:2017/3/19 15:30:00
  发帖心情 Post By:2018/7/24 21:30:00 [显示全部帖子]

 where 1=2 是什么意思

 回到顶部
帅哥哟,离线,有人找我吗?
wtfwsk05
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:398 积分:2369 威望:0 精华:0 注册:2017/3/19 15:30:00
  发帖心情 Post By:2018/7/24 22:59:00 [显示全部帖子]

where 1 = 1  加载所有数据  对不


 回到顶部
帅哥哟,离线,有人找我吗?
wtfwsk05
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:398 积分:2369 威望:0 精华:0 注册:2017/3/19 15:30:00
  发帖心情 Post By:2018/8/5 2:40:00 [显示全部帖子]

批量加载数据表,编写的代码
Dim strs As List(of String())
strs = DataTables("加载表").GetValues("表名|表标题")
For Each str As String() In strs
    Dim dt As DataTable
    Dim cmd As new SQLCommand
    cmd.C
    cmd.CommandText = "select * f rom sapprd." & str(0) & " where mandt = 800 "
    dt = cmd.ExecuteReader()
    dt.Name = str(0)
    dt.Caption = str(1)
Next
为什么提示 dt.name = str(0)有问题  怎么修改上述代码

 回到顶部
帅哥哟,离线,有人找我吗?
wtfwsk05
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:398 积分:2369 威望:0 精华:0 注册:2017/3/19 15:30:00
  发帖心情 Post By:2018/8/5 12:45:00 [显示全部帖子]

批量加载数据表,编写的代码
Dim strs As List(of String())
strs = DataTables("加载表").GetValues("表名|表标题")
For Each str As String() In strs
    Dim dt As DataTable
    Dim cmd As new SQLCommand
    cmd.C
    cmd.CommandText = "select * f rom sapprd." & str(0) & " where mandt = 800 "
    dt = cmd.ExecuteReader()
    dt.Name = str(0)
    dt.Caption = str(1)
Next
为什么提示 dt.name = str(0)有问题  怎么修改上述代码


 回到顶部