……
st.GridTree = True '一定要开启折叠模式
st.AddTotal("数量","销量", 0)
Tables("窗口1_Table1").DataSource = st.BuildDataSource()
'增加一个提成列, 并计算出每个员工的直接销售提成
DataTables("窗口1_Table11").DataCols.Add("提成", Gettype(Double))
DataTables("窗口1_Table1").DataCols("提成").SetFormat("0.00") '提成列保留两位小数
Dim tbl As Table = Tables("窗口1_Table1")
For n As Integer = 0 To tbl.Rows.Count - 1
tbl.Rows(n)("提成") = tbl.Rows(n)("销量") * 8
Next
……
加好友 
发短信
Post By：2023/6/12 20:16:00 [显示全部帖子]
