| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 提示错误！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30069) |
| -- 作者：wqb1102 -- 发布时间：2013/3/20 14:02:00 -- 提示错误！ Dim dr As DataRow = e.DataRow Select Case e.DataCol.Name Case "数量","单价","折扣" If dr.IsNull("数量") OrElse dr.IsNull("单价") Then dr("金额") = Nothing Else dr("金额") = dr("数量") * dr("单价") * (1 - dr("折扣")) End If End Select 将从帮助中复制上述代码放到命令窗口时，提示：错误代码：Dim dr As DataRow = e.DataRow
|
| -- 作者：狐狸爸爸 -- 发布时间：2013/3/20 14:40:00 -- 只有事件才有e参数的，命令窗口并没有。 而且不同的事件，e参数也不同。
http://www.foxtable.com/help/topics/0604.htm http://www.foxtable.com/help/topics/1840.htm
|
| -- 作者：wqb1102 -- 发布时间：2013/3/20 17:12:00 -- Dim dr As DataRow = e.DataRow
Dim dr As DataTable =DataTables ("销售明细") Select Case e.DataCol.Name Case "发货日期" If dr.IsNull("发货日期") Then \'如果日期列为空 dr("年") = Nothing dr("月") = Nothing Else dr("年") = dr("发货日期").Year dr("月") = dr("发货日期").Month End If Case "付款日期" If dr.IsNull("付款日期") Then \'如果日期列为空 dr("付款年") = Nothing dr("付款月") = Nothing Else dr("付款年") = dr("付款日期").Year dr("付款月") = dr("付款日期").Month End If End Select 这样也不行，头二行要如何设置
|
| -- 作者：狐狸爸爸 -- 发布时间：2013/3/20 17:25:00 -- 看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。 |
| -- 作者：delxkjhgq -- 发布时间：2013/3/20 17:32:00 -- 老大说了哈，E参数不能在命令窗口里执行呀,就是不能弄什么E. 这样的，第一行若需改成不带E的就是：DIM DR AS DATAROW= DATATABLE("表").DATAROW |
| -- 作者：wqb1102 -- 发布时间：2013/3/20 17:36:00 -- 多谢 |
| -- 作者：wqb1102 -- 发布时间：2013/3/21 9:50:00 -- Dim dr As DataRow = DataTable("销售明细").DataRow Select Case e.DataCol.Name Case "发货日期" If dr.IsNull("发货日期") Then \'如果日期列为空 dr("年") = Nothing dr("月") = Nothing Else dr("年") = dr("发货日期").Year dr("月") = dr("发货日期").Month End If Case "付款日期" If dr.IsNull("付款日期") Then \'如果日期列为空 dr("付款年") = Nothing dr("付款月") = Nothing Else dr("付款年") = dr("付款日期").Year dr("付款月") = dr("付款日期").Month End If End Select 改成这样在
|
| -- 作者：狐狸爸爸 -- 发布时间：2013/3/21 9:52:00 -- 兄弟，不能跳跃着学习的。
看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。 |