Dim dr,dr1 As DataRow
Dim cmd As New SQLCommand
cmd.ConnectionName = Mydata
Dim dt As DataTable
cmd.CommandText = "select * from {事务提醒}"
dt = cmd.ExecuteReader(True)
Dim n_tb As String = e.Form.Controls("CmB_tb").Value
If n_tb > "" Then
'---集合选择表的后台数据,将其"待处理"或"退回"状态的记录更新或加入到{事务提醒}表中来.
cmd.CommandText = "select * from {" & n_tb & "} where sys_Fzt <> '已完成' And sys_Fzt <> '已中止'"
Dim dt2 As DataTable = cmd.ExecuteReader()
For Each pr As DataRow In dt2.DataRows
dr = dt.Find("单据名称 = '" & n_tb & "'")
If dr IsNot Nothing Then '用实际表中的数值更新{事务提醒}中的信息
dr("发送人") = pr("sys_Revisor")
dr("发送时间") = pr("sys_Mdate")
dr("内容") = pr("sys_Fname")
dr("sys_Inputer") = pr("sys_Inputer")
dr("sys_Fbh") = pr("sys_Fbh")
dr("sys_Fzt") = pr("sys_Fzt")
dr("sys_Fcdz") = pr("sys_Fcdz")
dr("sys_Fback") = pr("sys_Fback")
Else
dr = dt.AddNew()
dr("发送人") = pr("sys_Revisor")
dr("发送时间") = pr("sys_Mdate")
dr("内容") = pr("sys_Fname")
dr("单据名称") = n_tb
dr("sys_Inputer") = pr("sys_Inputer")
dr("sys_Fbh") = pr("sys_Fbh")
dr("sys_Fzt") = pr("sys_Fzt")
dr("sys_Fcdz") = pr("sys_Fcdz")
dr("sys_Fback") = pr("sys_Fback")
End If
Next
dt.save()
End If
加好友 
发短信
Post By：2013/12/4 11:44:00 [只看该作者]
此主题相关图片如下：360截图20131204113513047.jpg