关于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



...全文
310 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧