自定义信息提示窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

麻烦老师帮我看看，实在是不会写图片点击可在新窗口打开查看

报价明细表数据没有更新

保存按钮

Dim r As Row = Tables("报价主表").Current

If r("审核") = False Then

r.Save()

Dim ids As String = ""

For Each r1 As Row In Tables("报价明细").rows

r1.Save()

ids &= r1("_Identify") & ","

If ids > "" Then

QQClient.Send("计划.吴连英","+b|" & ids.trim(",") & "",True)

End If

QQClient.Send("计划.吴连英","+@|" & r("_Identify") & "|" & r("报价单号") & "|" & User.Name,True)

End If

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

查看按钮

DataTables("报价主表").Save() '接下来要根据主键查找,必须先保存,因为只有保存后新增行的主键才是有效值

DataTables("报价明细").Save()

Dim id As String = e.Form.Controls("Label2").Text

Dim id1 As String = e.Form.Controls("Label3").Text

DataTables("报价主表").removefor("[_Identify] in (" & id & ")")

DataTables("报价主表").AppendLoad("[_Identify] in (" & id & ")")

DataTables("报价明细").removefor("[_Identify] in (" & id & ")")

DataTables("报价明细").AppendLoad("[_Identify] in (" & id & ")")

Dim dr As DataRow = DataTables("报价主表").Find("[_Identify] = " & id)

If dr IsNot Nothing Then

Dim wz As Integer = Tables("报价主表").FindRow(dr)

If wz < 0 Then '如果因为筛选导致此报价主表不可见

Tables("报价主表").Filter = ""

wz =Tables("报价主表").FindRow(dr)

End If

If wz >= 0 Then

Tables("报价主表").Position = wz

Forms("报价").show()

End If

e.Form.Close()

项目事件SystemIdle

If fhs.Count > 0 AndAlso Forms("审核提示").Opened = False Then

Dim pts() As String = fhs(0).Split("|")

Dim pts1() As String = fhs1(0).Split("|")

With Forms("审核提示")

.Open()

.Controls("Label1").Text = pts(2) & "新增报价单" & pts(1) & ",请审核!"

.Controls("Label2").Text = pts(0) '将发货单主健设置为Label2的标题

.Controls("Label3").Text = pts1(0) '将发货单主健设置为Label2的标题

End With

fhs.RemoveAt(0)

fhs1.RemoveAt(0)

End If

主题：自定义信息提示窗口