- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 表事件代码问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89562)
-- 发布时间：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
End If
我这段代码运行后出现错误，请各位大师指点。
此主题相关图片如下：qq截图20160824152914.png
-- 发布时间：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
-- 发布时间：2016/8/24 16:06:00
--
谢谢大红袍大师。
-- 发布时间：2016/8/25 10:17:00
--
Select Case e.DataCol.name
Case "供应商名称","商品名称", "商品规格","生产企业","单位", "进价"
Dim dr As DataRow = e.DataRow
dr("收发票金额") = DataTables("时空发票结算单").Compute("sum(收发票金额)",CExp("供应商名称=\'{0}\' and 商品名称=\'{1}\' and 商品规格=\'{2}\' and 生产企业=\'{3}\' and 单位=\'{4}\' and 进价=\'{5}\',dr("供应商名称"),dr("商品名称"),dr("商品规格"),dr("生产企业"),dr("单位"),dr("进价")))
End Select
麻烦大师看一下，我这段代码哪有问题。
-- 发布时间：2016/8/25 10:24:00
--
此主题相关图片如下：qq截图20160825102247.png
-- 发布时间：2016/8/25 10:33:00
--
大红袍老师在吗，急用呀。
-- 发布时间：2016/8/25 10:38:00
--
Select Case e.DataCol.name
Case "供应商名称","商品名称", "商品规格","生产企业","单位", "进价"
Dim dr As DataRow = e.DataRow
dr("收发票金额") = DataTables("时空发票结算单").Compute("sum(收发票金额)",CExp("供应商名称=\'{0}\' and 商品名称=\'{1}\' and 商品规格=\'{2}\' and 生产企业=\'{3}\' and 单位=\'{4}\' and 进价=\'{5}\'",dr("供应商名称"),dr("商品名称"),dr("商品规格"),dr("生产企业"),dr("单位"),dr("进价")))
End Select
-- 发布时间：2016/8/25 10:49:00
--
此主题相关图片如下：qq截图20160825104856.png
又出现了这个问题。
-- 发布时间：2016/8/25 10:51:00
--
已解决，谢谢大师。
-- 发布时间：2016/8/25 11:11:00
--
大师，能告诉我，是哪错了吗。