动态列表代码求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态列表代码求助

共有9926人关注过本帖树形打印复制链接主题：动态列表代码求助

hdf0913

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：50 积分：588 威望：0 精华：0 注册：2012/8/2 16:08:00

动态列表代码求助 发帖心情

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：50 积分：588 威望：0 精华：0 注册：2012/8/2 16:08:00

Post By：2012/9/25 10:50:00 [只看该作者]

好的，解决了

下一主题 >> << 上一主题

主题：动态列表代码求助