Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]狐狸爸爸，为什么这里不能使用动态合成表达式


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

主题：[原创]狐狸爸爸，为什么这里不能使用动态合成表达式
帅哥哟，离线，有人找我吗？
chinalw
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：280 威望：0 精华：0 注册：2013/3/23 21:38:00 		[原创]狐狸爸爸，为什么这里不能使用动态合成表达式  发帖心情 Post By：2013/5/7 21:46:00 [显示全部帖子]

Dim cj As WinForm.ComboBox = e.Form.Controls("创建文件名")
Dim cmd As New SQLCommand
cmd.CommandText = "select * into " & cj.text & "  from 新装用户表 where 1<>1"        ‘从既有表生成一个空表
cmd.C
cmd.ExecuteNonQuery

DataTables("表C").Fill("Select * From {文件表}","daiwei" ,False)
Dim drs As List(Of DataRow)
drs = DataTables("表C").Select("[新装用户表] =  '" & cj.text & "'")
For Each dr As DataRow In drs
    dr("新装存在") = True
Next
DataTables("表C").Save()

DataTables("新装用户表").Fill("Select * From {"& cj.text &"}","daiwei" ,False)     ‘为什么最后一条不能使用动态合成表达式，怎么解决？？
[此贴子已经被作者于2013-5-8 21:05:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
chinalw
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：280 威望：0 精华：0 注册：2013/3/23 21:38:00 		  发帖心情 Post By：2013/5/7 21:56:00 [显示全部帖子]

肯定没少，提示不支持动态合成表达式，不知道是不是狐表本身不支持，可有其他方法解决

 回到顶部
帅哥哟，离线，有人找我吗？
chinalw
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：280 威望：0 精华：0 注册：2013/3/23 21:38:00 		  发帖心情 Post By：2013/5/8 8:04:00 [显示全部帖子]

以下是引用夕然在2013-5-8 0:21:00的发言：
缺少空格

我又仔细看了程序，不缺少空格，
 回到顶部
帅哥哟，离线，有人找我吗？
chinalw
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：280 威望：0 精华：0 注册：2013/3/23 21:38:00 		  发帖心情 Post By：2013/5/8 20:49:00 [显示全部帖子]

还是请狐爸指点一下，我按部分狐兄的指点都试了，还是不行，希望能够指出问题，至少提供一个解决办法

 回到顶部
帅哥哟，离线，有人找我吗？
chinalw
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：280 威望：0 精华：0 注册：2013/3/23 21:38:00 		  发帖心情 Post By：2013/5/8 21:32:00 [显示全部帖子]

晕，我早就把空格加上了，还是出一样的错误
Dim cj As WinForm.ComboBox = e.Form.Controls("创建文件名")
Dim cmd As New SQLCommand
cmd.CommandText = "select * into " & cj.text & "  from 新装用户表 where 1<>1"
图片点击可在新窗口打开查看此主题相关图片如下：出错.jpg
图片点击可在新窗口打开查看
cmd.C
cmd.ExecuteNonQuery

DataTables("表C").Fill("Select * From {文件表}","daiwei" ,False)
Dim drs As List(Of DataRow)
drs = DataTables("表C").Select("[新装用户表] =  '" & cj.text & "'")
For Each dr As DataRow In drs
    dr("新装存在") = True
Next
DataTables("表C").Save()

DataTables("表A").Fill("Select * From {" &  cj.text  & "}","daiwei" ,False)
 回到顶部
帅哥哟，离线，有人找我吗？
chinalw
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：280 威望：0 精华：0 注册：2013/3/23 21:38:00 		  发帖心情 Post By：2013/5/9 18:32:00 [显示全部帖子]

求求大家了，指点一下哦
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04395 秒, 5 次数据查询