Dim st1 As Date = Date.Now
Dim strlist As List(Of String) = Functions.Execute("sql提取函数",Tables("成绩"),"成绩","_Identify","[_Identify]","单位名称|学校|年级代码|班级|姓名|学生ID|身份证件号|学籍号|班级全称|学段|考试名称|年级|类别|考号|学校班级|学校代码|生物_|地理_","单位名称|学校|年级代码|班级|姓名|学生ID|身份证件号|学籍号|班级全称|学段|考试名称|年级|类别|考号|学校班级|学校代码|生物_|地理_",1)
if strlist.count = 0 then return
Dim sql As String
Dim cmd As New SQLCommand
cmd.C
Dim Count As Integer = 0
try
Connections("180.153.108.50").BeginTransaction
For Each s As String In strlist
cmd.CommandText = s
Count += cmd.ExecuteNonQuery()
output.show(s)
Next
Connections("180.153.108.50").Commit '提交事务,所有操作生效
Tables("成绩").DataTable.BaseTable.AcceptChanges() '提交修改
MessageBox.Show("亲,我正在为节省您的每一秒钟努力,本次保存共耗时: " & (Date.Now - st1).TotalSeconds & "秒")
Tables("初中报名_table1").AllowEdit = False
Catch ex As Exception '如果出错
msgbox(ex.message)
Connections("180.153.108.50").Rollback() '回滚事务,撤销所有操作
End Try
上面的代码保存出错的时候再测试13楼的代码
加好友 
发短信
Post By：2017/10/28 15:50:00 [显示全部帖子]
