vb的问题~~~急急

King86

Private Sub txtProjectName_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then       Call dbconek                      With ar           criteria = "Select * From Projects Where Project_Name like'" & txtProjectName & "%'"                 .Open criteria, strConek, adOpenStatic, adLockOptimistic                     If .RecordCount >= 1 Then                         txtProjectName = !Project_Name                         txtPackage = !Package                         chkGeneralSpecification.Value = !General_Specification（为什么这个checkbox 的value retrieve不到？）请帮帮我！！！！

[ 本帖最后由 King86 于 9-3-2007 09:38 AM 编辑 ]

goatstudio

1. 你的 Projects table 里有什么?
2. 资料库里本来有没有资料?
3. 可以先用 trace 的方法试看把 !General_Specification 打印出来.
4. 忘了 vb6 的 checkbox 是否用 Value 来代表 checked... 可以检查看是否可以用 Checked 这个 property.

King86

General_Specification 在access是chekbox, datafield 是yes/no.
database里面已经tick了
怎样trace?

hooi1983

试下这个

1. 
   
2. chkGeneralSpecification.Value = IIf(!General_Specification,1,0)
   

复制代码

King86

谢谢，可以了~~~

hooi1983

如果要 update 就反过来而已

1. 
   
2. !P_ID_Drawing = IIF(chkPIDDrawing.Value = 0, False, True)
   

复制代码

CheckBox.value 不能用 True or False, 要用 1 or 0

King86

原帖由 hooi1983 于 9-3-2007 06:48 PM 发表
如果要 update 就反过来而已


!P_ID_Drawing = IIF(chkPIDDrawing.Value = 0, False, True)


CheckBox.value 不能用 True or False, 要用 1 or 0

真的好感谢你~~~~~

King86

原帖由 hooi1983 于 9-3-2007 06:48 PM 发表
如果要 update 就反过来而已


!P_ID_Drawing = IIF(chkPIDDrawing.Value = 0, False, True)


CheckBox.value 不能用 True or False, 要用 1 or 0

为什么不能update的？

hooi1983

原帖由 King86 于 12-3-2007 02:46 PM 发表



为什么不能update的？

你有放 rs.update 吗？

King86

原帖由 hooi1983 于 13-3-2007 12:37 AM 发表


你有放 rs.update 吗？

   Call dbconek
    With ar
        criteria = "Select *From Projects Where Project_Name='" & txtProjectName & "'"
            .Open criteria, ctrconek, adOpenStatic, adLockOptimistic
                !Project_Name = txtProjectName
                !Package = txtPackage
                !Customer_Ref_No = txtCustomerRefNo.Text
                !General_Specification = IIf(chkGeneralSpecification.Value = 0, False, True)
                .Update
            .Close
    End With

这样对吗？

hooi1983

哪一个 field 没 update 到？

Select *From

是否在 "*" 没空行??

King86

原帖由 hooi1983 于 13-3-2007 10:20 AM 发表
哪一个 field 没 update 到？



是否在 "*" 没空行??

!General_Specification = IIf(chkGeneralSpecification.Value = 0, False, True)
这个没update到。。。。

hcong85

原帖由 King86 于 13-3-2007 10:21 AM 发表



!General_Specification = IIf(chkGeneralSpecification.Value = 0, False, True)
这个没update到。。。。

在Database里面你是放什么Data Type?
如果是Yes/No, True = -1, False = 0
如果是Text, True = "1", False = "0"
如果是Number, True = 1, False = 0