要替换多列数据，列名称储存在集合lms中，。代码入下：
DataTables("学生信息导入样表").StopRedraw
Dim i ,y As Integer = 0
Dim dr As DataRow
For Each dr1 As DataRow In DataTables("学生信息导入样表").DataRows
For y=0 To lms.count-1
DataTables("xszxztb").SQLReplaceFor(lms(y),dr1(nms(y)),"sfzhm= '" & dr1("身份证号码") & "'")
Next
i=i+1
Next
DataTables("学生信息导入样表").Save()
DataTables("学生信息导入样表").ResumeRedraw
MessageBox.show("共替换成功" & i & "条记录")
这里的 i 显然不是替换了的行数
如何才能知道替换了几条？另外想在替换过的行做个标记，即成功的“学生信息导入样表” 中的“是否替换成功”列中做记true
，dr1("是否替换成功")=true 又插下那呢? 谢谢！
加好友 
发短信
Post By：2019/10/14 13:46:00 [只看该作者]
