Question

vb check的问题,我想把数据库里的布尔型的值给check.value,但value接受的值是数字我该怎么转换

Answer 1

bit不就是数字0和1吗？..如果你的布尔型在数据库值是true\false这样就加个判断 

if rs.Fields("all")="true" then check.value= 0 else check.value=1

'类似这样

追问

我不想加判断,有没有个函数可以把1/0与true/false转换的

追答

没有 不过可以自己写一个转换函数 很简单的

Public Function Checks(ByVal Booleans As String) As Integer
If Booleans = "true" Then Checks = 1 Else Checks = 0
End Function

使用时可以直接用

Check1.Value = Checks(rs.Fields("all"))