Question

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

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.Fields("上班时间").Value, 5) '设置上班时间为表中的时间
Else '否则
MaskEdBoxTime.Text = Left(rs.Fields("下班时间").Value, 5) '设置下班时间为表中的时间
End If
End If
rs.Close '关闭数据集对象
End Sub

上面一段程序按键触发时显示错误380，
定位在 MaskEdBoxTime.Text = Left(rs.Fields("上班时间").Value, 5) 这一行
高手指点下，该要怎么改，谢谢！
显示两边值分别是MaskEdBoxTime.Text ="__:__",rs.Fields("上班时间")=8:00:00。

Answer 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

Answer 2

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

追问

谢谢，还是不行，我猜原因大概是rs.Fields("上班时间")=8:00:00前面缺少一位0，如果是08:00:00，那就OK了该要怎么改？但是赋值的时候就给的是是08:00。

追答

MaskEdBoxTime.Text = Hour(rs.Fields("上班时间")) & ":" & Format(Minute(rs.Fields("上班时间")), "00")

Answer 3

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

追问

谢谢回答，试了，还是不可以

Answer 4

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

Answer 5

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