Set m = CurrentDb.OpenRecordset("select 日期,型号,正,次,返,优等品,一等品,合格品,单价,当日产值 from scjl")
DoCmd.GoToControl "日期"
Do Until m.EOF
If m.日期 = 日期 Then
型号 = m.型号
正 = m.正
次 = m.次
返 = m.返
优等品 = m.优等品
一等品 = m.一等品
合格品 = m.合格品
单价 = m.单价
当日产值 = m.当日产值
Exit Do
End If
m.MoveNext
Loop
End Sub
我在一个窗体主体中设计了一个组合框控件和其他文本框控件，这段代码就是实现在组合框中选择“日期”字段的记录后，在其它文本框中即显示表中相对应字段的记录的。但这段代码只能实现一一对应，也就是说必须要“日期”这个字段唯一对应一条记录才能正常运行，不能有重复。可是实际上这个字段的内容是有重复的。即在同一“日期”里，“型号”字段内容的不同对应记录的内容也不同，也就是说，只有“日期”和“型号”的组合才能唯一确定一条记录。我的问题如何修改才能实现“日期”和“型号”组合唯一确定一条记录的功能？望热心人给予我答复，不胜感谢！作者: 海狸先生 时间: 2005-6-1 16:33
If m.日期 = 日期 and m.型号=型号 Then