原来像蔡正显 出现两次的 系统 自动把他算了两遍。那么就只要晒出王大力 没有就可以了！
另外，如何把事件 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(单价)","购piao人 like '%" & ls(i) & "%'")
Next
e.DataRow("金额") = zj
e.DataRow("客人名字") = nstr.trim
End If
End Select
加好友 
发短信
Post By：2017/6/19 14:48:00 [显示全部帖子]
此主题相关图片如下：未标题-66.jpg
