以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态列表代码求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23941)
--  作者：hdf0913
--  发布时间：2012/9/25 10:20:00
--  动态列表代码求助

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目23.foxdb

看上面的项目，订单表的代码应该怎么写，根据ID选择规格，根据ID和规格选择号型

If e.IsFocusCell Then
    If e.Col.Name = "规格" Then
        e.Col.Combolist = DataTables("产品表").GetComboListString("规格", "[ID] = \'" & e.Row("ID") & "\'")
    End If
End If
If e.IsFocusCell Then
    If e.Col.Name = "号型" Then
        e.Col.Combolist = DataTables("产品表").GetComboListString("号型", "[ID] = \'" & e.Row("ID") & "\'" And "[规格] = \'" & e.Row("规格") & "\'"  )
    End If
End If

这样那里有问题
--  作者：lin_hailun
--  发布时间：2012/9/25 10:31:00
--  
 这句写错了

e.Col.Combolist = DataTables("产品表").GetComboListString("号型", "[ID] = \'" & e.Row("ID") & "\'" And "[规格] = \'" & e.Row("规格") & "\'"  )

 改成

e.Col.Combolist = DataTables("产品表").GetComboListString("号型", "[ID] = \'" & e.Row("ID") & "\' And [规格] = \'" & e.Row("规格") & "\'"  )

--  作者：hdf0913
--  发布时间：2012/9/25 10:50:00
--  
好的，解决了