感谢老师，老师的回复速度真的是神速
再次请问老师，在文本框控件统计企业电子订单编号的不重复个数的代码怎么写啊
Dim Total As
Integer
Dim Amount As
Double
Dim gs As Single
Dim zj As Single
Dim jj As Single
Dim zsj As Single
Dim jlhs As Single
With
DataTables("申报清单")
jlhs = .Compute("count(企业电子运单编号)","是否重报=True")
Total = .Compute("count(件数)","是否重报=True")
Amount = .Compute("Sum(商品毛重)","是否重报=True")
zj = .Compute("Sum(商品总价)","是否重报=True")
gs = .Compute("Sum(增值税)","是否重报=True")
jj = .Compute("Sum(消费税)","是否重报=True")
zsj = .Compute("Sum(总税额)","是否重报=True")
End With
e.Form.Controls("TextBox2").value
= jlhs
e.Form.Controls("TextBox3").value
= Total
e.Form.Controls("TextBox4").value
= Amount
e.Form.Controls("TextBox5").value
= zj
e.Form.Controls("TextBox6").value
= jj
e.Form.Controls("TextBox7").value
= gs
e.Form.Controls("TextBox8").value
= zsj
加好友 
发短信
Post By：2018/9/28 15:36:00 [显示全部帖子]
此主题相关图片如下：25.png
