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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表事件代码问题

共有2049人关注过本帖树形打印复制链接主题：表事件代码问题

feixianzhi

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

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

表事件代码问题 发帖心情

Post By：2016/8/24 15:31:00 [只看该作者]

If e.IsFocusCell Then '如果是焦点单元格

If e.Col.Name = "商品名称" Then

e.Col.Combolist = DataTables("时空入库汇总").GetComboListString("商品名称", "[供应商名称] = '" & e.Row("供应商名称") & "'")

ElseIf e.Col.Name = "商品规格" Then

e.Col.Combolist = DataTables("时空入库汇总").GetComboListString("商品规格","[供应商名称] = '" & e.Row("供应商名称") & "'"and "[商品名称] = '" & e.Row("商品名称") & "'")

ElseIf e.Col.Name = "单位" Then

e.Col.Combolist = DataTables("时空入库汇总").GetComboListString("单位", "[供应商名称] = '" & e.Row("供应商名称") & "'"and "[商品名称] = '" & e.Row("商品名称") & "'")

End If

我这段代码运行后出现错误，请各位大师指点。

此主题相关图片如下：qq截图20160824152914.png

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/24 15:51:00 [只看该作者]

If e.IsFocusCell Then '如果是焦点单元格
    If e.Col.Name = "商品名称" Then
        e.Col.Combolist = DataTables("时空入库汇总").GetComboListString("商品名称", "[供应商名称] = '" & e.Row("供应商名称") & "'")
    ElseIf e.Col.Name = "商品规格" Then
       e.Col.Combolist = DataTables("时空入库汇总").GetComboListString("商品规格","[供应商名称] = '" & e.Row("供应商名称") & "' and [商品名称] = '" & e.Row("商品名称") & "'")
    ElseIf e.Col.Name = "单位" Then
        e.Col.Combolist = DataTables("时空入库汇总").GetComboListString("单位", "[供应商名称] = '" & e.Row("供应商名称") & "' and [商品名称] = '" & e.Row("商品名称") & "'")
    End If
End If

feixianzhi

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

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

Post By：2016/8/24 16:06:00 [只看该作者]

谢谢大红袍大师。

feixianzhi

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

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

Post By：2016/8/25 10:17:00 [只看该作者]

Select Case e.DataCol.name

Case "供应商名称","商品名称", "商品规格","生产企业","单位", "进价"

Dim dr As DataRow = e.DataRow

dr("收fa piao金额") = DataTables("时空fa piao结算单").Compute("sum(收fa piao金额)",CExp("供应商名称='{0}' and 商品名称='{1}' and 商品规格='{2}' and 生产企业='{3}' and 单位='{4}' and 进价='{5}',dr("供应商名称"),dr("商品名称"),dr("商品规格"),dr("生产企业"),dr("单位"),dr("进价")))

End Select

麻烦大师看一下，我这段代码哪有问题。

feixianzhi

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

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

Post By：2016/8/25 10:24:00 [只看该作者]

此主题相关图片如下：qq截图20160825102247.png

feixianzhi

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

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

Post By：2016/8/25 10:33:00 [只看该作者]

大红袍老师在吗，急用呀。

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/8/25 10:38:00 [只看该作者]

Select Case e.DataCol.name

Case "供应商名称","商品名称", "商品规格","生产企业","单位", "进价"

Dim dr As DataRow = e.DataRow

dr("收fa piao金额") = DataTables("时空fa piao结算单").Compute("sum(收fa piao金额)",CExp("供应商名称='{0}' and 商品名称='{1}' and 商品规格='{2}' and 生产企业='{3}' and 单位='{4}' and 进价='{5}'",dr("供应商名称"),dr("商品名称"),dr("商品规格"),dr("生产企业"),dr("单位"),dr("进价")))

End Select