- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 把航班出piao的名单分配到各小组，然后统计总额的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102411)
-- 发布时间：2017/6/19 14:48:00
-- 把航班出piao的名单分配到各小组，然后统计总额的问题
非常感谢 @有点色 @有点蓝 @2900819580 几位大师不厌其烦的指点。
下面这个问题是承接上面统计问题的，仍然让我不好去写代码实现，单独问一贴，也方便其他人查询。
再次感谢几位大师的指导。
---------------------
1如何把 王大力 在机票里 没出现的人 筛选出来 并提醒？
2 如何实现 相同的人有双程机票的汇总？
-- 发布时间：2017/6/19 14:50:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目9.table |
-- 发布时间：2017/6/19 14:50:00
--
此主题相关图片如下：未标题-66.jpg
-- 发布时间：2017/6/19 15:14:00
--
原来像蔡正显 出现两次的 系统 自动把他算了两遍。
那么就只要晒出王大力 没有就可以了！
另外，如何把事件 datacolchanged 改成 用按钮 点击后自动计算 金额栏？
Select Case e.DataCol.name
Case "客人名字","金额"
If e.DataRow.IsNull("客人名字") Then
e.DataRow("金额") = Nothing
Else
Dim nstr As String = ""
Dim str As String = System.Text.RegularExpressions.Regex.replace(e.DataRow("客人名字"), "[0-9\\.]", "")
Dim count As Integer = 0
For Each s As String In str.split(" ")
If s.Trim > "" Then
nstr &= s.Trim & " "
count += 1
End If
Next
Dim Ls() As String
ls = str.Split(" ")
Dim zj As Double
For i As Integer = 0 To ls.Length - 1
zj = zj + DataTables("表a").Compute("sum(单价)","购票人 like \'%" & ls(i) & "%\'")
Next
e.DataRow("金额") = zj
e.DataRow("客人名字") = nstr.trim
End If
End Select
-- 发布时间：2017/6/19 15:16:00
--
这样的 必须要改变一下 客人名单 datacolchanged 才会计算
此主题相关图片如下：未标题-8.jpg
-- 发布时间：2017/6/19 15:26:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102286&authorid=0&page=0&star=2