设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › vb代码求详解

vb代码求详解

[复制链接]
查看11 | 回复1 | 2011-5-16 06:02:14 | 显示全部楼层 |阅读模式
一个按钮控件关于一段数据导入的代码求详解
PrivateSubCommand1_Click()
Fori=0ToDataGrid1.VisibleRows-1
DataGrid1.Row=i
DataGrid1.Col=0


IfadoPrimaryRS.EOF=TrueThen

adoPrimaryRS.AddNew

adoPrimaryRS.Fields(\"学籍号\")=DataGrid1.Text
DataGrid1.Col=1
adoPrimaryRS.Fields(\"姓名\")=DataGrid1.Text

adoPrimaryRS.Fields(\"奖贷学金\")=\"无\"

adoPrimaryRS.Fields(\"异动\")=\"无\"

adoPrimaryRS.Fields(\"军训等级\")=\"无\"

adoPrimaryRS.Fields(\"毕业去向\")=\"无\"
Else

adoPrimaryRS.MoveFirst
DoWhile(adoPrimaryRS.EOF=False)
IfadoPrimaryRS.Fields(\"学籍号\")=DataGrid1.TextThen
ExitDo
EndIf



adoPrimaryRS.MoveNext

Loop
IfadoPrimaryRS.EOF=TrueThen

adoPrimaryRS.AddNew

adoPrimaryRS.Fields(\"学籍号\")=DataGrid1.Text
DataGrid1.Col=1
adoPrimaryRS.Fields(\"姓名\")=DataGrid1.Text

adoPrimaryRS.Fields(\"奖贷学金\")=\"无\"

adoPrimaryRS.Fields(\"异动\")=\"无\"

adoPrimaryRS.Fields(\"军训等级\")=\"无\"

adoPrimaryRS.Fields(\"毕业去向\")=\"无\"
EndIf
EndIf

Nexti
EndSub
回复

使用道具 举报

千问 | 2011-5-16 06:02:14 | 显示全部楼层
PrivateSubCommand1_Click()
Fori=0ToDataGrid1.VisibleRows-1\'按照行顺序循环
DataGrid1.Row=i\'选择第i行
DataGrid1.Col=0\'选择第1列


IfadoPrimaryRS.EOF=TrueThen\'是否数据库指针在最后

adoPrimaryRS.AddNew\'增加数据

adoPrimaryRS.Fields(\"学籍号\")=DataGrid1.Text\'学籍号字段=第1列内容
DataGrid1.Col=1
adoPrimaryRS.Fields(\"姓名\")=DataGrid1.Text\'姓名字段=第2列内容

adoPrimaryRS.Fields(\"奖贷学金\")=\"无\"\'奖贷学字段金=\"无\"

adoPrimaryRS.Fields(\"异动\")=\"无\"\'异动字段=\"无\"

adoPrimaryRS.Fields(\"军训等级\")=\"无\"\'军训等级字段=\"无\"

adoPrimaryRS.Fields(\"毕业去向\")=\"无\"\'毕业去向字段=\"无\"
Else

adoPrimaryRS.MoveFirst\'数据库指针移动到开始
DoWhile(adoPrimaryRS.EOF=False)\'循环直到数据库指针在最后
IfadoPrimaryRS.Fields(\"学籍号\")=DataGrid1.TextThen\'如果学籍号字段=第1列内容，那么
ExitDo\'退出循环
EndIf



adoPrimaryRS.MoveNext\'数据库指针向后移动

Loop
IfadoPrimaryRS.EOF=TrueThen\'是否数据库指针在最后

adoPrimaryRS.AddNew\'增加数据

adoPrimaryRS.Fields(\"学籍号\")=DataGrid1.Text\'学籍号字段=第1列内容
DataGrid1.Col=1
adoPrimaryRS.Fields(\"姓名\")=DataGrid1.Text\'姓名字段=第2列内容

adoPrimaryRS.Fields(\"奖贷学金\")=\"无\"

adoPrimaryRS.Fields(\"异动\")=\"无\"

adoPrimaryRS.Fields(\"军训等级\")=\"无\"

adoPrimaryRS.Fields(\"毕业去向\")=\"无\"
EndIf
EndIf

Nexti
EndSub
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行