帮忙看一下VB实时错误380，非法属性值？该怎么解决？

2025-12-17 06:59:49

推荐回答（5个）

回答1：

用下面的修改，试试看行不行：
Private Sub Option1_Click(Index As Integer)
s = Option1(Index).Caption '将Option1控件数组显示的标题赋值给变量s
rs.Open "时间设置表", cnn, adOpenKeyset, adLockOptimistic '连接时间设置表
If rs.RecordCount > 0 Then '如果表中有记录
If Option1(0) = True Then '如果选择了"上班"
MaskEdBoxTime.Text = Left(rs！上班时间, 5) '设置上班时间为表中的时间
Else '否则
MaskEdBoxTime.Text = Left(rs.！下班时间, 5) '设置下班时间为表中的时间
End If
End If
rs.Close '关闭数据集对象
End Sub

回答2：

If Option1(0).Value = True Then '如果选择了"上班"
MaskEdBoxTime.Text = Left$(rs.Fields("上班时间"), 5) '设置上班时间为表中的时间
Else '否则
MaskEdBoxTime.Text = Left$(rs.Fields("下班时间"), 5) '设置下班时间为表中的时间
End If

回答3：

VB6么？
在rs.Fields前面加一个“CStr(”，再在Value后面加一个“)”试试吧！
可能是没进行隐式转换的缘故。

回答4：

如果上班时间的数据类型是日期/时间的话，以下这样写没问题。
MaskEdBoxTime.Text = Format(rs.Fields("上班时间").Value, "HH:MM")

回答5：

我也遇到这个问题，请问你的问题解决了吗？我很棘手，马上要答辩了。