关于Fields的用法

yz1976 2007-12-23 09:16:11
我用combol做了一些框选,意思比如说:

房建=壹级

等号左右两边都是combol做的,左边与数据库的字段明对应,因为是建筑业用的资质之类,比较多,一共提供了30个选项,如上等号左边的房建等字段一共有六十来个
在实现录入时写了下面的代码,但出错了,请大师们指教有什么好点的办法
因为字段很多有六十多个,怎么样才能自动对应呢???谢谢
------------------------------------------------------------------------------


For i = 0 To 29
Dim y As String
Dim z As String
Dim x As String
y = Combo16(i).Text
z = Combo17(i).Text

If z = "特级" Then
x = "0"
ElseIf z = "壹级" Then
x = "1"
ElseIf z = "贰级" Then
x = "2"
ElseIf z = "叁级" Then
x = "3"
ElseIf z = "无等级" Then
x = "5"
Else: z = "无"
x = ""
End If
If y <> "无" Then
Adodc1.Recordset.Fields("y") = x
End If
Next i

Adodc1.Recordset.Update
End If



...全文
179 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
chuting1 2007-12-24
同意楼上
回复
itlive 2007-12-24
改为:
Adodc1.Recordset.Fields(y) = x
回复
yz1976 2007-12-24
谢谢已经解决了


Adodc1.Recordset.Fields(Combo16(i).Text ) = x
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告