MessageReceived代码没有处理明细的代码啊
Dim pts() As String = e.Message.Split("|")
If pts.Length = 4 AndAlso pts(0) = "+@" '如果是申请审核消息
fhs.Add(pts(1) & "|" & pts(2) & "|" & pts(3)) '将主健?单号和制单人合成为一个字符串存储在集合中
ElseIf pts.Length = 2 AndAlso pts(0) = "+b" '如果是申请审核消息
fhs1.Add(" & pts(1) & " ) '将主健?单号和制单人合成为一个字符串存储在集合中
ElseIf pts.Length = 3 AndAlso pts(0) = "-@" '如果是审核通过消息
PopMessage("报价单" & pts(1) & "已由" & pts(2) & "审核通过!")
Dim dr As DataRow = DataTables("报价主表").Find("报价单号 = '" & pts(1) & "'")
If dr IsNot Nothing Then
dr.Load
End If
ElseIf pts.Length = 3 AndAlso pts(0) = "+b|"
处理明细表的数据加载
End If
或者
查看按钮
DataTables("报价主表").Save() '接下来要根据主键查找,必须先保存,因为只有保存后新增行的主键才是有效值
DataTables("报价明细").Save()
Dim id As String = e.Form.Controls("Label2").Text
Dim id1 As String = e.Form.Controls("Label3").Text '增加一个控件把消息里的报价单号记录下来
Dim id3 As String = e.Form.Controls("Label4").Text '提示窗口增加一个控件把消息里的报价单号记录下来 (.Controls("Label4").Text = pts(1))
msgbox(id1 )
DataTables("报价主表").removefor("[_Identify] in (" & id & ")")
DataTables("报价主表").AppendLoad("[_Identify] in (" & id & ")")
DataTables("报价明细").removefor("[报价单号] in (" & id3 & ")")
DataTables("报价明细").AppendLoad("[报价单号] in (" & id3 & ")")
加好友 
发短信
Post By：2021/11/26 10:47:00 [显示全部帖子]
