| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1973 人关注过本帖
标题:select 语句遭遇长度不够的情况
只看楼主 加入收藏
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
过程中我自己也用VBA来做---VBA过程说下怎么个步骤
2014-04-28 21:46
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用hyz00001在2014-4-28 21:43:31的发言:

 
 
感谢你,成功的解决了问题,竟然是cast函数的问题。
 
在这个过程中我自己也用VBA来做了一个,主要用的是分裂的技术,共享出来如下:
 
Sub aa()
    fir = [a65536].End(xlUp).Row
    Range(Cells(1, 1), Cells([a65536].End(xlUp).Row, "m")).AutoFilter field:=9, Criteria1:="=*仓库调拨单据*", Operator:=xlAnd
    Range(Cells(2, 1), Cells([a65536].End(xlUp).Row, "m")).SpecialCells(xlCellTypeVisible).Copy
    Cells([a65536].End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues
    fis = [a65536].End(xlUp).Row
    Range(Cells(fir + 1, "i"), Cells(fis, "i")) = "调拨入库"
    Range(Cells(fir + 1, "d"), Cells(fis, "d")).TextToColumns Destination:=Cells(fir + 1, "d"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 9), Array(2, 9), Array(3, 2)), TrailingMinusNumbers:=True
     
    Range(Cells(2, 1), Cells(fir, "m")).SpecialCells(xlCellTypeVisible).Copy
    Cells([a65536].End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues
    fit = [a65536].End(xlUp).Row
    Range(Cells(fis + 1, "i"), Cells(fit, "i")) = "调拨出库"
    Range(Cells(fis + 1, "d"), Cells(fit, "d")).TextToColumns Destination:=Cells(fis + 1, "d"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 9), Array(3, 9)), TrailingMinusNumbers:=True
     
End Sub
简单问题复杂化

坚守VFP最后的阵地
2014-04-28 21:50
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
又是數據庫設計造成的問題

授人以渔,不授人以鱼。
2014-04-28 22:05
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
VFP现成的函数不用,不知道怎么学的VFP

坚守VFP最后的阵地
2014-04-28 22:11
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
T版说得对,数据库结构的设计不合理,造成后续处理困难。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2014-04-29 07:08
taifu945
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:80
帖 子:1545
专家分:3298
注 册:2012-7-6
收藏
得分:0 
以下是引用hyz00001在2014-4-28 20:59:04的发言:

 
 
主要是中文的,应该没有全角吧。
汉字等同于全角字符啊。所谓的全角字符就是指一个字符占两个字节的情况,不要被名称文字所迷惑了。
2014-04-29 08:17
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
空中楼阁

坚守VFP最后的阵地
2014-04-29 08:29
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
以下是引用taifu945在2014-4-29 08:17:16的发言:

汉字等同于全角字符啊。所谓的全角字符就是指一个字符占两个字节的情况,不要被名称文字所迷惑了。
对啊
2014-04-29 08:33
hyz00001
Rank: 3Rank: 3
等 级:论坛游侠
威 望:1
帖 子:168
专家分:137
注 册:2012-10-5
收藏
得分:0 
新手来着,之前用vba的,没有更好办法的情况下比较容易会到VBA的老套路里面去。
2014-04-29 09:03
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
楼主的问题用VFP解决了吗

坚守VFP最后的阵地
2014-04-29 09:26
快速回复:select 语句遭遇长度不够的情况
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026279 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved