|
Dim r As Row = Tables("表A").Current
Dim Result As DialogResult
Result = Messagebox.Show("是否要开始新的服务记录?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.yes Then
If r IsNot Nothing Then
Dim br As Row = Tables("表B").AddNew()
br("注意事项") = r("内容")
br.Save()
End If
Else
Dim br As Row = Tables("表B").Current
If r IsNot Nothing Then
br("注意事项") = br("注意事项") & r("内容")
br.Save()
End If
End If
|
加好友 
发短信
Post By：2015/12/31 11:09:00 [显示全部帖子]
