我有一个表单,上部分为个人基本信息,下部分用sstab1(学习情况,学费管理,等四项)每项有多条记录,个人基本情况中有25项,学费表单(对同一人最多有8条记录)中有10项,且都有可能修改,现修改记录的思路为先删除原记录后添加新记录。出现情况为删除了旧记录但添加了多条记录且有重复的记录(基本信息表同学费表为一对多)请指教!
我的
‘删除
If rsxf.State = 1 Then
rsxf.Close
End If
rsxf.Open "select * from xf where 个人学号 = '" & xx & "'", conn, adOpenKeyset, adLockOptimistic
If rsxf.RecordCount > 0 Then
rsxf.Delete
End If
rsxf.Close’添加
rsxf.Open "select * from xf ", conn, adOpenKeyset, adLockOptimistic
If Len("" & Trim(Combo12.Text)) <> 0 Then
rsxf.AddNew
rsxf.Fields(0).Value = Trim(Text4.Text)
rsxf.Fields(1).Value = Trim(Combo12.Text)
rsxf.Update
End If
If Len("" & Trim(Combo13.Text)) <> 0 Then
rsxf.AddNew
rsxf.Fields(0).Value = Trim(Text4.Text)
rsxf.Fields(1).Value = Trim(Combo13.Text)
rsxf.Update
End If ........
总共判断8个Combo.Text中内容是否为空,不空则添加8条修改后的记录,如何做!!!
我的
‘删除
If rsxf.State = 1 Then
rsxf.Close
End If
rsxf.Open "select * from xf where 个人学号 = '" & xx & "'", conn, adOpenKeyset, adLockOptimistic
If rsxf.RecordCount > 0 Then
rsxf.Delete
End If
rsxf.Close’添加
rsxf.Open "select * from xf ", conn, adOpenKeyset, adLockOptimistic
If Len("" & Trim(Combo12.Text)) <> 0 Then
rsxf.AddNew
rsxf.Fields(0).Value = Trim(Text4.Text)
rsxf.Fields(1).Value = Trim(Combo12.Text)
rsxf.Update
End If
If Len("" & Trim(Combo13.Text)) <> 0 Then
rsxf.AddNew
rsxf.Fields(0).Value = Trim(Text4.Text)
rsxf.Fields(1).Value = Trim(Combo13.Text)
rsxf.Update
End If ........
总共判断8个Combo.Text中内容是否为空,不空则添加8条修改后的记录,如何做!!!
Update xf Set 个人学号 = '"& Trim(Text4.Text) &"' where 个人学号 = '" & xx & "'"
Update xf Set 个人学号 = '"& Trim(Text4.Text) &"' where 个人学号 = '" & xx & "'"
然后就可以通过循环判断是否所有combo是否是空