求助！组合框筛选值后，未绑定文本框不能赋值和复选框功能失效。

老万　发表于：2013-08-01 08:36:46 　

复制

请教各位大神帮忙解决！

原窗体frmG组合框不能使用上下箭头键选择需要的结果,但不影响联系人自动联动和选择第二联系人。

后来参考《完美实现组合框模糊搜索功能》实现了，但联系人不能自动联动和选择第二联系人。见窗体frmG2。

frmg/frmg2

Top

chinasa 发表于：2013-08-01 11:13:12

是由于你FRMG2窗体加载事件中的语句冲突的原因，把这段删除就可以了。

    '支持拼音首字段，按公司名称排升序
    mclsCompanyName.Init Me.gysid, "[gysmc]&PinYin([gysmc])", _
                         "gysID,gysmc", "tblCode_gys", , "gysmc"

Top

老万发表于：2013-08-01 11:19:32

谢谢！但删除后不能完美实现组合框模糊搜索功能啊

Top

chinasa 发表于：2013-08-01 15:14:46

点击下载此附件

Top

老万发表于：2013-08-01 15:31:12

十分感谢！复选框选择第二联系人还是不能运用到。

Top

chinasa 发表于：2013-08-01 16:18:09

原理是一样的，把你原先复选框语句更改为

    If Me.fxlxr2 = -1 Then
        Me.lxr1 = DLookup("[Lxr2]", "查询1", "[gysID]=[forms]![frmg2]![gysid]")
        Me.lxr1.SetFocus
    Else
        Me.lxr1 = DLookup("[Lxr1]", "查询1", "[gysID]=[forms]![frmg2]![gysid]")
    End If

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

[5分]求助！组合框筛选值后，未绑定文本框不能赋值和复选框功能失效。