VB程序员博客

八位数的电话号码 ，大概一千万 对应五个字符的 姓名
表结构：
八位数字，五位汉字
88888888,李白

怎么设计存储可以快速的，输入号码，就显示姓名

不用数据库 ,分段存储，谁能给出较快的代码

不用数据库就写在文件中了。
写在文件中后，一次读到内存中，用二分法查找。

存储在 list中!

改一下数据结构 改成:
88888887:xxx
88888888:xx
这样格式的…

窗体_load()
把所有信息写到 list

窗体内一个text  输入数字时 循环list = list.list(i) 前面8位 则 显示 list(i) ":" 后的数据
运行时 list 为隐藏

你可以把数据发给我! 窗体_load() 部分我可以几分钟时间就把字串改成代码形式发还给你!

可以CSDN 联系我
以前就用这样的方法 写过 进程查询 程序  现在没再弄这个了 不过其思路不错 适用LZ 所说情况

不过… 1千万… 应该会溢出的吧…

那么只有 把数据放在文本里 ..启动的时候把他们全部写到程序内..

因为数据太多 查询速度可能是个问题

LZ 把数据发给我实验看下吧!

me.email=cike_1111@163.com

发邮件后CSDN 通知下 我

一共13个字符，13字节
1000万条记录㗱3 = 130,000,000
如果全部读到内存中的话，那这个内存…………

不如这样吧，把你的文件以二进制的方式存放在一个文件中
这个文件中的头部分写一个索引结构，按照电话开头的数字做索引
例如我想找5字头的电话号码，索引结构中就记录从5开始的电话的字节位置，再按照电话号码第二位开始做索引……如此类推

用XML文件存储或在程序执行之前就读到内存中，建立个自己的类和集合，读到里面。

6楼能给个代码吗？我不太会用索引结构

目前这样的数据结构，空号不存储

全部不读入内存，文件操作

文件结构：
8位数字,五位汉字unicode
81234563汤姆
81242345敖德森.刘

谁能给一个，快速定位号码的完整算法   

1.输入      81234563      显示汤姆
2.输入      汤姆               
显示:
81234563   
81234xxx      电话号码可能有多个

分不够再加，麻烦请给完整代码，谢谢

http://topic.csdn.net/u/20080127/17/e8154112-fa0f-4f94-b445-39de41cb63eb.html里回答了，
直接写到文件里面，然后做电话号码与文件内部存放数据的位置之间的换算，举例说明：电话号码假如从10000000生效，那么，10000000对应的就是seek(0),
10000001（八位数字，五位汉字）对应的就是seek(14)，虽然可能会出现空号，但是这样检索应该会很快把？而且不需要数据库的说
具体就是file.seek(（带查找的电话号码 - 起始电话号码）㗥핦𝡦𕰦�𕿯𜉯𜛠
然后就可以file.read(lpbuf,单条数据长)了

对于空号的解决办法就是空号的位置用0×00填充，这样空号只是占个位子。只要读出的电话号码是0的话，就说明这个号码还未被使用

备注：文件打开并不会全部导入内存，也就是说，实际上最后读入内存的部分也就是file.read中的单条数据长了，只有14byte而已

不要意思，再补充一点，认为文件太大的话可以分多个文件存放，比如开头号码11放一个文件，12放一个文件，我想lz应该可以自己解决了吧？

将姓名按电话号码数字大小做向量排序？

写在ini文件里,读出时用API直接调出节点.

之前,我已结贴!!还是不能解决问题!!
ACCESS数据库中数据表NT里的一段完整数据这样的!
以下数据均为一秒中保存一次!!

批号          时间      数据01          ID
1121        18:22:31    112        23912
1121        18:22:32    112        23913
1121        18:22:33    110        23914
1121        18:22:34    121        23915
            ……………………..
          一直到
1121        19:39:36    120        28523

我想要的结果是 
从数据表NT,能按每5秒读出数据！！！

批号          时间      数据01      ID
1121        18:22:31    112        23912
1121        18:22:36    112        23913
1121        18:22:51    110        23914
            ……………………..
         

从数据表NT,能按每10秒读出数据！！！

批号          时间      数据01      ID
1121        18:22:31    112        23912
1121        18:22:41    112        23913
1121        18:22:51    110        23914
            ……………………..

从数据表NT,能按每30秒读出数据！！！

批号          时间      数据01      ID
1121        18:22:31    112        23912
1121        18:23:01    112        23913
1121        18:23:31    110        23914
            ……………………..

从数据表NT,能按每60秒读出数据！！！

批号          时间      数据01      ID
1121        18:22:31    112        23913
1121        18:23:31    112        23913
1121        18:24:31    110        23914
            ……………………..

使用VB如何提出数据?

之前感谢：vbman2003!

你把所有的都查询出来，在填写表格时，只把符合你要求的填入表格即可。

用DateDiff函数来判断两条记录之间是否相间隔有5秒

jhone99 ,你好!!!

向你请教!

批号          时间      数据01          ID
1121        18:22:31    112        23912
1121        18:22:32    112        23913
1121        18:22:33    110        23914
1121        18:22:34    121        23915

18:22:31 这个时间的 31

是0～59之间任意数,请问可以通用吗?

select * from NT where (second(时间)-31) mod 5=0

请问可将31做成变量吗?
我做成变量 后,执行该语句,变量总为0,提示,无赋值!!!

请参考下列资料,可能会有你想要的答案：

http://item.taobao.com/auction/item_detail-0db2-e6d913ef380a2845faa7fd3ff102648f.jhtml?
received_or_posted=0&buyer_or_seller=0

请参考下列资料,可能会有你想要的答案：

http://item.taobao.com/auction/item_detail-0db2-e6d913ef380a2845faa7fd3ff102648f.jhtml?

received_or_posted=0&buyer_or_seller=0

31是你最早的那个秒数
select * from NT where (second(时间)-31) mod 5=0

-31无非是把秒数还原到0点来计算。就你的例子来说不能改成其他变量

是不是可以先读出来当前NT中最小的那个时间点，赋值给变量！
select min(时间） from nt

点燃创意火花，增加社区版面凝聚力，也为今后CSDN版面间各项线下活动做好准备。CSDN特组织：『Show出你的创意，秀出你的精彩』CSDN版服设计大赛

  活动时间和内容：

  1 、5月25日~6月7日，以大版为分类，分别组织版服设计大赛,网友们可以提交自己的创意。

  2 、6月8日~10日，各大版进行投票评比，选出设计前2名，参加全CSDN版服设计大赛。

  3、 6月11日~12日，限时投票选出CSDN版服大赛优胜者。

  注意：截至当天的时间均为16点。如提交到6月7日16点截至。

  活动内容及要求

  1、突出版面特色，力求构思新颖，简洁大方。

  2、原则上在设计时需加上CSDN社区logo，但如果logo的存在的确有碍你的创意迸发，则可以不加。设计时，请同时设计正反两面。

  3、参加评选的版服，必须上传到CSDN相册中，以便将来给您的设计做全站推荐。 （如由于相册没有开通的原因无法上传，请用私信的方式给管理员ptwhite留言。 另外，开通的相册必须做为上传参赛图所用，如无使用，则在活动结束后进行关闭。）

  4、作品不得侵犯著作权，如牵涉法律责任，由设计者承担。

奖项：
  1、所有提交设计图的，每一份设计图，CSDN活动奖励可用分300分。
 
  2、6月10日17点公布大版奖项。

  第一名：版服一件+300元代金卷

  第二名：版服一件+200元代金卷

 
  3、6月12日17点公布CSDN版服优胜奖。

  奖项：最佳人气奖3名

  奖品：第一名：无线键盘

        第二名：U盘激光笔 

        第三名：笔记本电脑包

设计模板

官方模板：

支持阿豆

找设计师ing。。。。

支持  ding

设计的不会，接分先。

不会设计，只会投票。

支持

纯 来 接分 》。。

各位不想画图的，不妨出出文字创意。

比如，你觉得那些keyword最能代表VB6的精髓？

希望绿豆把这个建议放到你的顶楼里，让大家都看到。

sub
com
activex
..
越想越多..接分

另外，在社区的主帖里提到：

补充：1、各版以大版主为组织，有效参赛大版，设计图不得少过10份，提交设计图的人员不得少过6人，少过该数则无效。不参与任何评奖。     

这个的话，建议取消。估计咱们这里凑这个数有点难度的说

豆豆开这个帖是大版允许了的。 所以已经放进活动专帖了。

ding

这是我前几天设计的那个T恤衫样式，请大家开动脑筋继续想些vb所特有的，能很好反映出vb特点的一些东西，谢谢！

这是根据常波同学的提议所改的夏日清凉版

顶

顶顶顶

黑色烟雾版

几米？

哈，没几米

多少钱撒

米是钱嘛

落伍啊斑竹

支持

hoho，我知道你说的是那个意思

现在只是征求设计阶段，还没有印呢，自然是无需多少米咯

来来，赶紧参加也设计一个，兴趣能得大奖哦

我来顶顶

顶

顶

找设计师ing。。。。

写点汉字也行啊，全是英文谁看呐。

VB板怎么才开始啊

modest的好！

to modest: 我喜欢第二个代码的。

建议字体换漂亮点的，颜色也变漂亮点。

VB Modest

为水源义务设计，版权转让，请速联系me。

西西，去设计一个吧。发挥你的智慧…

怎么才能得到这漂亮的衣服。

jf

衣服很漂亮

31楼的不错。

咱们版如果凑不够6个人，是不是就不能参加评奖了？

多多益善

哈哈，看看我上面的回复 看起来好小人啊

一点都不小人啊，年轻人快设计1件吧，为vb版争争面子诶

这个不错。顶！！！

虽然俺是菜鸟，可是不年轻鸟。

另外，为何你和modest都无视人数的问题啊？咱们要是凑不够6个人不是白忙乎么？为嘛不建议那个白雪什么的改改规矩啊？

一来接分二来如果设计好的T恤便宜卖给我等,最好免费

因为这个活动主要是图个热闹，只要大家多发些言把帖子给顶住了，把楼盖上去了，我和老魏也就欣慰了，哈哈

看看我给水源设计的版服
http://topic.csdn.net/u/20090527/16/e21f7aeb-3d9c-4231-8736-1989f4409a24.html

顶一个

不会设计的人来顶了

个人意见，csdn弄这么个活动实在是。。。要是开会什么的都穿个版服，不是说一帮Geek开会么。不明白阿不明白

我靠都是人才。
我就等着出来穿着到处张扬

请问英文老师，geek倒底是贬义还是褒义？

我不人设计，我认为前面中文，背面英文，

个人理解吧，不过大部分人都理解是贬义。调查显示Geek就是那种特别不吸引异性的一个团体

不懂设计，喜欢那个有代码的

Bill Gates版

纯捧场

声明：此乃YY版，仅供娱乐。

没那个艺术细胞~~~~~~~~

路过顶贴…….

  CSDN以交流IT技术为主的网络社区。 CSDN中的专家分，用来衡量用户的技术水平，以及用户的热心程度。来自于回答其他用户的问题，发帖人结帖时给分所得。

  CSDN严格禁止倒分行为。倒分行为破坏了整个社区秩序。

  由于发现在过去一年间很多用户进行了马甲倒分，CSDN将在6月集中处理。

  鉴于以前一些倒分者已经不再进行倒分，并且对社区做出部分贡献。所以做出以下处理。

  1、所以倒分相关帖子得分回复将全部删除处理。

  2、对参与倒分的相关ID处理。

    a 请自行发私信到CSDN,承认自己参与过倒分。并且已经改正错误。 CSDN将不进行封杀处理，只删除得分帖，不追究其他责任。

    注：请在6月5日前发私信到CSDN，超过期者，一律按不承认错误者进行处理。

    b  如参与倒分情况严重。并且不承认错误者，直接全站封杀处理。不再进行单个大版封杀。
      说明：倒分次数超过5次，参与倒分技术分+水分>500分。则认为情节严重。

  3、由于倒分，产生的专家分等级，勋章，社区将统一在6月对版面排行榜以及勋章进行重新生成。

其他：CSDN从6月起，每周管理员会进行一次倒分处理。 也欢迎大家举报非法倒分者。

支持~

沙发被鸭蛋抢了

支持支持！

象法院贴的布告，不象公告

严重支持

厉害~~

我支持的是以前的就不追究了，以后倒分的严厉处罚ⷂ𗂷ⷼ/td>

倒分为了自己虚荣，但伤害了别人的感情

支持

倒分可不好

支持

应该会删不少帖子..

好，严重支持

2000年倒的分还查不？
呵呵。。。。。。。

oo也倒过？

发现CSDN很有某party的风范

平时不好好做，觉得不行了就来次严打，打完了又恢复原样

有意义吗？

简直是瞎折腾

9年前的事现在也记不起来了，
也许倒过吧，哈哈。。。。。。。

支持。倒分是管理一个环节，平时也要加强管理。

支持

就倒过2次氺分。。

csdn好久没有福利了，穷死

以后每星期会查一次。

有个错误就会改正。

马上就要发福利了

支持

严重支持~~已阅~~

關注

关注

支持

支持

支持，倒分影响大家心情，也破坏社区秩序。

倒分是干什么的？

马上要发福利了，所以严查倒分者。呵呵。

支持，伸张正义！

别人硬塞给我的分怎么办？

这招厉害！

有“倒分”现象，说明CSDN这里的福利是不错的，嘿嘿……

支持。

接分并支持

问下
什么是倒分

顶楼主，顺便问一句。

博文编辑HTML时写入EMBEDDED标签总是失败，能解决么？还是考虑什么安全问题。

jf

就说我的分的涨的不快呀
哈哈

怎么倒法的？
没有听说的？？？？？？？？／

呵呵

up….

以后没机会啦 - -！

强烈支持！严打倒分行为！

支持

封杀他们！！！

支持

坦白从宽，抗拒从严

杀,一个不留

支持!!!
不过不知道什么叫倒分..

倒分是什么，最重要的问题都没有说清楚，别人怎样知道他是不是犯了。。。

支持啊！！！

支持

支持ⷂ𗂷ⷂ𗂷ⷂ𗂷

什么叫"到分"?

似乎不少人都弄不清楚…..

有谁可以解释一下吗?

请教，我的SQL服务器采用混合身份认证模式。而且Windows没有设置任何登录用户，平常就是直接登陆。在VB程序中通过
"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=" & Trim(FrmMain.CobServer.Text)来实现通过Windows身份验证登陆。但是总出现”用户''登录失败“的错误提示。能告诉我这究竟是哪里出了问题吗？

怎样设置呢？

"uid=" & UserName & ";pwd=" & UserPwd & _
";driver={SQL Server};server=" & ServerAdd & _
";database=" & DBName & ";dsn=''"
用此连接字符串看看，UserName，UserPwd 都为空

用SQL软件试一下能不能用windows身份验证登录.

还是出现”用户''登录失败“的错误提示。我用的下句来连接
SQLServer.Connect CobServer.Text
CobServer.Text是当前服务器名
"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=" & Trim(FrmMain.CobServer.Text)来实现通过Windows身份验证登陆。

我能通过windows身份验证登录进入“查询分析器”

有哪位高手能不吝赐教啊？？？？等待解决……

"Provider=SQLOLEDB.1;Data Source=127.0.0.1;Initial Catalog=database;Integrated Security=SSPI;"

用了楼上的代码，还是不行！

路过。看看哦。

怎么没人能解决了呢？我写的很详细了啊！着急中……

如果你用的是域认证的话,你的SQL服务器和联结客户端都必须是处于域账号登录的状态下.
然后要在SQL服务器中设置可访问SQL服务器的用户,建立一个新登录,然后SQL SERVER会自动列出所有的WINDOWS域用户名单,然后你添加用户名称和可访问的数据库以及权限就可以了

在你的连接字符串里加上Trusted_Connection=Yes看看

Data Source=数据库服务器名;Initial Catalog=输入你要连接的数据库名
我测试过的OK的

谢谢楼上几位，请问Windows身份认证时，和服务器连接的语句是这样写吗？SQLServer.Connect ServerName,因为不用填写用户名和密码，是不是这样啊？？？我怀疑我是这句写错了。

cnn.Open "Provider=sqloledb;Data Source=127.0.0.1;Initial Catalog=bomber;Integrated Security=SSPI;User ID=Server01Administrator;Password=nobody_knows;"

信任联接是SQL Server 提供的特有功能。ADO是通用的数据库访问技术，自然不支持。

某网页上的文本输入框，源码如下：
文本框源码：
<INPUT class="" id=NSRLSH onkeydown=eapObjsMgr.getEAPObj(this).enterToTab()style="BORDER-TOP-WIDTH:1px;BORDER-LEFT-WIDTH:1px;BORDER-BOTTOM-WIDTH:1px;WIDTH:259px;BORDER-RIGHT-WIDTH:1px"maxlength=20 name=string(NSRLSH) JSObjName="Taxpayer" prompt="纳税人流水号" onAffirm="btnClick('changePage')' model="SWJG" isnullable="flase" isUniEAP="true">

问题：怎么自动填写数据并模拟一下回车

原来这个问题在这儿发过，有人这样回复，不过这东西不是VB的，有点儿象DELPHI或PB
//输入数据
NSRLSH.text="abc";
//模拟回车
NSRLSH.focus();
var wsh = WScript.CreateObject("WScript.Shell");
wsh.SendKeys("{ENTER}");
wsh=null;
VB应

内部网络的页面啊，互联网看不到的

这么写中不？
Dim vDoc, vTag, i
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
if vtag.name="string(NSRLSH)" Then
vTag.value="123321"
SendKeys "{ENter}"
vTag.Click
end if

我写的不行啊，点了没反映

参看下面贴子，将相关的需要修改的点击语句改为赋值语句，getElementById 根据需要改为getElementsByName

JS写的网页，怎么写点击的语句

我想得太简单了，我只想点击后worksheets.sheet(1).clees(i,2).copy 然后past,写时我才发觉悟，还要先找到句柄才能粘贴，真的不如将getElementsByName替换下getElementById

学习

xue  xi 

看看怎么样

感觉非常幸运哦，我提的总是也能被推荐！！
哈哈哈，大笑中

不要把嘴巴都笑歪了啊

/**
* 解析JSON的数据格式，并把数据绑定到显示控件
* strJson 基本格式为控件NAME:值
* @param formName json格式的对象,注意显示控件的NAME要与JSON的键名要保持一致
*/
Tools.prototype.bindFormData = function(formName, jsonObj) {
    try {
        var form = document.forms[formName];
        for (var key in jsonObj) {
            var obj = document.forms[formName].document.getElementById(key);
            if (obj) {
                if (obj.tagName.toLowerCase() == "select") {  //是否是 下拉框
                    obj.value = jsonObj[key];
                } else if (obj.tagName.toLowerCase() == "textarea") { //清空  textarea 的 value
                    obj.value = jsonObj[key];
                } else if (obj.tagName.toLowerCase() == "input") { //如果是input标签
                    if (obj.type.toLowerCase() == "checkbox" || obj.type.toLowerCase() == "radio") { //把单选,复选置于非选中状态
                        var bCheck = jsonObj[key];
                        if ((bCheck == 1)) {
                            obj.checked = true;
                        } else {
                            obj.checked = false;
                        }
                        bCheck = null;
                    } else if ((obj.type.toLowerCase() != "button") && (obj.type.toLowerCase() != "reset")) {//清空非按钮和非重置 的所有值
                        obj.value = jsonObj[key];
                    }
                }
            }
        }
    } catch(e) {
        alert("客户端绑定错误:
" + "URL:
" + this._curPage + "
message:
" + e.message);
    }
};

不知道能帮你不

mark

帮你顶人气！

不知道你在做什么呢！自动填写数据不就是赋值吗？回车不就是 submit（） 一下吗？

学习

/**  
*   解析JSON的数据格式，并把数据绑定到显示控件  
*   strJson   基本格式为控件NAME:值  
*   @param   formName   json格式的对象,注意显示控件的NAME要与JSON的键名要保持一致  
*/  
Tools.prototype.bindFormData   =   function(formName,   jsonObj)   {  
        try   {  
                var   form   =   document.forms[formName];  
                for   (var   key   in   jsonObj)   {  
                        var   obj   =   document.forms[formName].document.getElementById(key);  
                        if   (obj)   {  
                                if   (obj.tagName.toLowerCase()   ==   "select ")   {     //是否是   下拉框  
                                        obj.value   =   jsonObj[key];  
                                }   else   if   (obj.tagName.toLowerCase()   ==   "textarea ")   {   //清空     textarea   的   value  
                                        obj.value   =   jsonObj[key];  
                                }   else   if   (obj.tagName.toLowerCase()   ==   "input ")   {   //如果是input标签  
                                        if   (obj.type.toLowerCase()   ==   "checkbox "   ||   obj.type.toLowerCase()   ==   "radio ")   {   //把单选,复选置于非选中状态  
                                                var   bCheck   =   jsonObj[key];  
                                                if   ((bCheck   ==   1))   {  
                                                        obj.checked   =   true;  
                                                }   else   {  
                                                        obj.checked   =   false;  
                                                }  
                                                bCheck   =   null;  
                                        }   else   if   ((obj.type.toLowerCase()   !=   "button ")   &&   (obj.type.toLowerCase()   !=   "reset "))   {//清空非按钮和非重置   的所有值  
                                                obj.value   =   jsonObj[key];  
                                        }  
                                }  
                        }  
                }  
        }   catch(e)   {  
                alert( "客户端绑定错误:
"   +   "URL:
"   +   this._curPage   +   "
message:
"   +   e.message);  
        }  
};

确实好像有这问题的，谢谢分享

点燃创意火花，增加社区版面凝聚力，也为今后CSDN版面间各项线下活动做好准备。CSDN特组织：『Show出你的创意，秀出你的精彩』CSDN版服设计大赛

  活动时间和内容：

  1 、5月25日~6月7日，以大版为分类，分别组织版服设计大赛,网友们可以提交自己的创意。

  2 、6月8日~10日，各大版进行投票评比，选出设计前2名，参加全CSDN版服设计大赛。

  3、 6月11日~12日，限时投票选出CSDN版服大赛优胜者。

  注意：截至当天的时间均为16点。如提交到6月7日16点截至。

  活动内容及要求

  1、突出版面特色，力求构思新颖，简洁大方。

  2、原则上在设计时需加上CSDN社区logo，但如果logo的存在的确有碍你的创意迸发，则可以不加。设计时，请同时设计正反两面。

  3、参加评选的版服，必须上传到CSDN相册中，以便将来给您的设计做全站推荐。 （如由于相册没有开通的原因无法上传，请用私信的方式给管理员ptwhite留言。 另外，开通的相册必须做为上传参赛图所用，如无使用，则在活动结束后进行关闭。）

  4、作品不得侵犯著作权，如牵涉法律责任，由设计者承担。

奖项：
  1、所有提交设计图的，每一份设计图，CSDN活动奖励可用分300分。
 
  2、6月10日17点公布大版奖项。

  第一名：版服一件+300元代金卷

  第二名：版服一件+200元代金卷

 
  3、6月12日17点公布CSDN版服优胜奖。

  奖项：最佳人气奖3名

  奖品：第一名：无线键盘

        第二名：U盘激光笔 

        第三名：笔记本电脑包

设计模板

官方模板：

支持阿豆

找设计师ing。。。。

支持  ding

设计的不会，接分先。

不会设计，只会投票。

支持

纯 来 接分 》。。

各位不想画图的，不妨出出文字创意。

比如，你觉得那些keyword最能代表VB6的精髓？

希望绿豆把这个建议放到你的顶楼里，让大家都看到。

sub
com
activex
..
越想越多..接分

另外，在社区的主帖里提到：

补充：1、各版以大版主为组织，有效参赛大版，设计图不得少过10份，提交设计图的人员不得少过6人，少过该数则无效。不参与任何评奖。     

这个的话，建议取消。估计咱们这里凑这个数有点难度的说

豆豆开这个帖是大版允许了的。 所以已经放进活动专帖了。

ding

这是我前几天设计的那个T恤衫样式，请大家开动脑筋继续想些vb所特有的，能很好反映出vb特点的一些东西，谢谢！

这是根据常波同学的提议所改的夏日清凉版

顶

顶顶顶

黑色烟雾版

几米？

哈，没几米

多少钱撒

米是钱嘛

落伍啊斑竹

支持

hoho，我知道你说的是那个意思

现在只是征求设计阶段，还没有印呢，自然是无需多少米咯

来来，赶紧参加也设计一个，兴趣能得大奖哦

我来顶顶

顶

顶

找设计师ing。。。。

写点汉字也行啊，全是英文谁看呐。

VB板怎么才开始啊

modest的好！

to modest: 我喜欢第二个代码的。

建议字体换漂亮点的，颜色也变漂亮点。

VB Modest

为水源义务设计，版权转让，请速联系me。

西西，去设计一个吧。发挥你的智慧…

怎么才能得到这漂亮的衣服。

jf

衣服很漂亮

31楼的不错。

咱们版如果凑不够6个人，是不是就不能参加评奖了？

多多益善

哈哈，看看我上面的回复 看起来好小人啊

一点都不小人啊，年轻人快设计1件吧，为vb版争争面子诶

这个不错。顶！！！

虽然俺是菜鸟，可是不年轻鸟。

另外，为何你和modest都无视人数的问题啊？咱们要是凑不够6个人不是白忙乎么？为嘛不建议那个白雪什么的改改规矩啊？

一来接分二来如果设计好的T恤便宜卖给我等,最好免费

因为这个活动主要是图个热闹，只要大家多发些言把帖子给顶住了，把楼盖上去了，我和老魏也就欣慰了，哈哈

看看我给水源设计的版服
http://topic.csdn.net/u/20090527/16/e21f7aeb-3d9c-4231-8736-1989f4409a24.html

顶一个

不会设计的人来顶了

个人意见，csdn弄这么个活动实在是。。。要是开会什么的都穿个版服，不是说一帮Geek开会么。不明白阿不明白

我靠都是人才。
我就等着出来穿着到处张扬

请问英文老师，geek倒底是贬义还是褒义？

我不人设计，我认为前面中文，背面英文，

个人理解吧，不过大部分人都理解是贬义。调查显示Geek就是那种特别不吸引异性的一个团体

不懂设计，喜欢那个有代码的

  CSDN以交流IT技术为主的网络社区。 CSDN中的专家分，用来衡量用户的技术水平，以及用户的热心程度。来自于回答其他用户的问题，发帖人结帖时给分所得。

  CSDN严格禁止倒分行为。倒分行为破坏了整个社区秩序。

  由于发现在过去一年间很多用户进行了马甲倒分，CSDN将在6月集中处理。

  鉴于以前一些倒分者已经不再进行倒分，并且对社区做出部分贡献。所以做出以下处理。

  1、所以倒分相关帖子得分回复将全部删除处理。

  2、对参与倒分的相关ID处理。

    a 请自行发私信到CSDN,承认自己参与过倒分。并且已经改正错误。 CSDN将不进行封杀处理，只删除得分帖，不追究其他责任。

    注：请在6月5日前发私信到CSDN，超过期者，一律按不承认错误者进行处理。

    b  如参与倒分情况严重。并且不承认错误者，直接全站封杀处理。不再进行单个大版封杀。
      说明：倒分次数超过5次，参与倒分技术分+水分>500分。则认为情节严重。

  3、由于倒分，产生的专家分等级，勋章，社区将统一在6月对版面排行榜以及勋章进行重新生成。

其他：CSDN从6月起，每周管理员会进行一次倒分处理。 也欢迎大家举报非法倒分者。

支持~

沙发被鸭蛋抢了

支持支持！

象法院贴的布告，不象公告

严重支持

厉害~~

我支持的是以前的就不追究了，以后倒分的严厉处罚ⷂ𗂷ⷼ/td>

倒分为了自己虚荣，但伤害了别人的感情

支持

倒分可不好

支持

应该会删不少帖子..

好，严重支持

2000年倒的分还查不？
呵呵。。。。。。。

oo也倒过？

发现CSDN很有某party的风范

平时不好好做，觉得不行了就来次严打，打完了又恢复原样

有意义吗？

简直是瞎折腾

9年前的事现在也记不起来了，
也许倒过吧，哈哈。。。。。。。

支持。倒分是管理一个环节，平时也要加强管理。

支持

就倒过2次氺分。。

csdn好久没有福利了，穷死

以后每星期会查一次。

有个错误就会改正。

马上就要发福利了

支持

严重支持~~已阅~~

關注

关注

支持

支持

支持，倒分影响大家心情，也破坏社区秩序。

倒分是干什么的？

马上要发福利了，所以严查倒分者。呵呵。

支持，伸张正义！

别人硬塞给我的分怎么办？

这招厉害！

有“倒分”现象，说明CSDN这里的福利是不错的，嘿嘿……

支持。

接分并支持

问下
什么是倒分

顶楼主，顺便问一句。

博文编辑HTML时写入EMBEDDED标签总是失败，能解决么？还是考虑什么安全问题。

jf

Private Sub Command1_Click()
  Dim db As ADODB.Connection
  Dim rs1 As ADODB.Recordset
  Dim rs2 As ADODB.Recordset
  Dim rs3 As ADODB.Recordset
  Dim rs4 As ADODB.Recordset
  Dim rs5 As ADODB.Recordset
  Dim rs6 As ADODB.Recordset
    Dim rs7 As ADODB.Recordset
  Set db = New ADODB.Connection
 
    Set rs = New ADODB.Recordset
    Set rs1 = New ADODB.Recordset
    Set rs2 = New ADODB.Recordset
    Set rs3 = New ADODB.Recordset
    Set rs4 = New ADODB.Recordset
    Set rs5 = New ADODB.Recordset
    Set rs6 = New ADODB.Recordset
    Set rs7 = New ADODB.Recordset
  db.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=奖学金;Data Source=."
  db.Open
         
           
   
    Dim no As String
    Dim no1 As String
        Dim n As Integer
        Dim n1 As Integer
        Dim Y As Integer
        Dim X As Integer
        Dim a As Integer
          rs4.Open "select distinct 成绩表.学年度,成绩表.至学年度,成绩表.姓名,成绩表.学号,成绩表.班级 ,成绩表.考试成绩 ,附加德育分.德育分,附加德育分.附加分,体育分.体育分,课程信息表.学分 from 成绩表,课程信息表 ,专业字典 ,体育分 ,附加德育分,学年表  where  课程信息表.课程代码 =成绩表.课程代码 and 体育分.学号=成绩表.学号 and 附加德育分.学号=成绩表.学号 and 学年表.学年度= '" & Cobxnd.Text & "'and 成绩表.班级='" & Cobbj.Text & "' and 学年表.至学年度='" & Cobzxnd.Text & "'", db, adOpenStatic, adLockReadOnly
   
rs5.Open "select avg(考试成绩),学号 from 成绩表 where  学年度= '" & rs4.Fields("学年度") & "' and 至学年度= '" & rs4.Fields("至学年度") & "' group by 学号", db, adOpenStatic, adLockReadOnly
 
rs6.Open "select avg(体育分),学号 from 体育分  where 学年度= '" & rs4.Fields("学年度") & "' and 至学年度= '" & rs4.Fields("至学年度") & "' group by 学号", db, adOpenStatic, adLockReadOnly

rs7.Open "select sum(学分),学号 from 成绩表 where 学年度= '" & rs4.Fields("学年度") & "' and 至学年度= '" & rs4.Fields("至学年度") & "' group by 学号", db, adOpenStatic, adLockReadOnly
      n = rs4.RecordCount
     
     
      Set DataGrid1.DataSource = rs4
      rs4.MoveFirst
      no1 = rs4.Fields(0)
         
          j = 0
       
      For i = 1 To n
      If rs4.EOF Then
     
      MsgBox "评定结束", 48, "提示信息"
     
      Else
     
      If rs4.Fields("学号") = rs5.Fields("学号") And rs5.Fields("学号") = rs6.Fields("学号") And rs7.Fields("学号") = rs6.Fields("学号") Then
      jxj.TextMatrix(i, 2) = rs4.Fields("学号")
        Y = rs5.Fields(0)
      jxj.TextMatrix(i, 4) = rs5.Fields(0) * 0.6
      jxj.TextMatrix(i, 3) = rs4.Fields("班级")
      jxj.TextMatrix(i, 5) = rs4.Fields("德育分") * 0.2
          X = rs6.Fields(0)
      jxj.TextMatrix(i, 6) = rs6.Fields(0) * 0.2
    jxj.TextMatrix(i, 1) = rs4.Fields("姓名")
      a = rs7.Fields(0)
      jxj.TextMatrix(i, 9) = rs7.Fields(0)
      jxj.TextMatrix(i, 7) = rs4.Fields("附加分")
      jxj.TextMatrix(i, = rs5.Fields(0) * 0.6 + rs6.Fields(0) * 0.2 + rs4.Fields("附加分") + rs4.Fields("德育分") * 0.2
        rs4.MoveNext
        rs5.MoveNext
        rs6.MoveNext
        rs7.MoveNext
     
      End If
     
        End If
     
     
   
     
      Next i     
     
       
   
               
End Sub

在运行时只显示一条记录信息，如何继续显示下条记录。
想了好久也不会，高手帮忙解决下，谢谢了。

某网页上的文本输入框，源码如下：
文本框源码：
<INPUT class="" id=NSRLSH onkeydown=eapObjsMgr.getEAPObj(this).enterToTab()style="BORDER-TOP-WIDTH:1px;BORDER-LEFT-WIDTH:1px;BORDER-BOTTOM-WIDTH:1px;WIDTH:259px;BORDER-RIGHT-WIDTH:1px"maxlength=20 name=string(NSRLSH) JSObjName="Taxpayer" prompt="纳税人流水号" onAffirm="btnClick('changePage')' model="SWJG" isnullable="flase" isUniEAP="true">

问题：怎么自动填写数据并模拟一下回车

原来这个问题在这儿发过，有人这样回复，不过这东西不是VB的，有点儿象DELPHI或PB
//输入数据
NSRLSH.text="abc";
//模拟回车
NSRLSH.focus();
var wsh = WScript.CreateObject("WScript.Shell");
wsh.SendKeys("{ENTER}");
wsh=null;
VB应

内部网络的页面啊，互联网看不到的

这么写中不？
Dim vDoc, vTag, i
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
if vtag.name="string(NSRLSH)" Then
vTag.value="123321"
SendKeys "{ENter}"
vTag.Click
end if

我写的不行啊，点了没反映

参看下面贴子，将相关的需要修改的点击语句改为赋值语句，getElementById 根据需要改为getElementsByName

JS写的网页，怎么写点击的语句

我想得太简单了，我只想点击后worksheets.sheet(1).clees(i,2).copy 然后past,写时我才发觉悟，还要先找到句柄才能粘贴，真的不如将getElementsByName替换下getElementById

学习

xue  xi 

看看怎么样

感觉非常幸运哦，我提的总是也能被推荐！！
哈哈哈，大笑中

不要把嘴巴都笑歪了啊

/**
* 解析JSON的数据格式，并把数据绑定到显示控件
* strJson 基本格式为控件NAME:值
* @param formName json格式的对象,注意显示控件的NAME要与JSON的键名要保持一致
*/
Tools.prototype.bindFormData = function(formName, jsonObj) {
    try {
        var form = document.forms[formName];
        for (var key in jsonObj) {
            var obj = document.forms[formName].document.getElementById(key);
            if (obj) {
                if (obj.tagName.toLowerCase() == "select") {  //是否是 下拉框
                    obj.value = jsonObj[key];
                } else if (obj.tagName.toLowerCase() == "textarea") { //清空  textarea 的 value
                    obj.value = jsonObj[key];
                } else if (obj.tagName.toLowerCase() == "input") { //如果是input标签
                    if (obj.type.toLowerCase() == "checkbox" || obj.type.toLowerCase() == "radio") { //把单选,复选置于非选中状态
                        var bCheck = jsonObj[key];
                        if ((bCheck == 1)) {
                            obj.checked = true;
                        } else {
                            obj.checked = false;
                        }
                        bCheck = null;
                    } else if ((obj.type.toLowerCase() != "button") && (obj.type.toLowerCase() != "reset")) {//清空非按钮和非重置 的所有值
                        obj.value = jsonObj[key];
                    }
                }
            }
        }
    } catch(e) {
        alert("客户端绑定错误:
" + "URL:
" + this._curPage + "
message:
" + e.message);
    }
};

不知道能帮你不