Foxtable(狐表)用户栏目专家坐堂 → [求助]哪里出问题?


  共有3207人关注过本帖平板打印复制链接

主题:[求助]哪里出问题?

帅哥哟,离线,有人找我吗?
石四
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
[求助]哪里出问题?  发帖心情 Post By:2015/4/2 13:06:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:事例.rar

 

附件费用管理窗口

单价含税,金额计算公式:金额=数量*单价(1-税率/100)

 

Dim dtb As New DataTableBuilder("登记表")

dtb.AddDef("请购编号", Gettype(String), 16)

dtb.AddDef("名称规格", Gettype(String), 36)

dtb.AddDef("单位", Gettype(String), 16)

dtb.AddDef("数量", Gettype(Integer))

dtb.AddDef("单价", Gettype(Integer))

dtb.AddDef("税率", Gettype(Integer))

 

With e.Form.Controls("Table1").Table

    .datasource = dtb.BuildDataSource

    .allowedit = True

    .DataTable.SysStyles("EmptyArea").BackColor = Color.Whitesmoke

End With

With DataTables("费用管理_Table1").DataCols  '用表达式列计算期初数据

    .Add("金额",Gettype(Double),"[单价] * ISNULL([数量],0)(1-[税率]/100)" )

End With

 

Dim t As Table = Tables("费用管理_Table1")

For Each c As Col In t.Cols

    c.TextAlign = TextAlignEnum.Center

Next

 

Tables("费用管理_Table1").SetColVisibleWidth("请购编号|68|名称规格|184|单位|42|数量|48|单价|48|税率|38|金额|64")

 

报错了呢!正确的应该是?


 


 回到顶部