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


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

主题：[原创]狐狸爸爸，为什么这里不能使用动态合成表达式
帅哥哟，离线，有人找我吗？
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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hanxuntx
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2609 积分：16926 威望：0 精华：11 注册：2011/9/20 16:13:00 		  发帖心情 Post By：2013/5/7 21:48:00 [只看该作者]

From {" & cj.text & "}","

 

好像 & 位置少了空格？
 回到顶部
帅哥哟，离线，有人找我吗？
chinalw
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


加好友 发短信
等级：三尾狐 帖子：619 积分：3656 威望：0 精华：1 注册：2012/6/13 22:00:00 		  发帖心情 Post By：2013/5/8 0:21:00 [只看该作者]

缺少空格

 回到顶部
帅哥哟，离线，有人找我吗？
chinalw
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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的发言：
缺少空格

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


加好友 发短信 一级勋章
等级：超级版主 帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2013/5/8 8:17:00 [只看该作者]

对比1、2楼！

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


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

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

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


加好友 发短信
等级：四尾狐 帖子：867 积分：6210 威望：0 精华：0 注册：2012/11/24 20:44:00 		  发帖心情 Post By：2013/5/8 21:07:00 [只看该作者]

把例子上传吧，大家都说你少了空格，纠结在这样的问题上无意义。

 回到顶部
帅哥哟，离线，有人找我吗？
chinalw
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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