主题：如何实现这种想法？谢谢

这样?::::   在 调资基础数据 表上做个按钮(这是单行审核):::::::要全表审核,用 for..........next

if currenttable.current("出生时间") = ReadBirthday(currenttable.current("身份证号")) then
    MessageBox.Show("对头!" )
else
    MessageBox.Show("对啥子头嘛!" )
    Dim dr As DataRow = DataTables("审核结果").DataRows.AddNew()
    dr("单位名称") = currenttable.current("单位名称")
    dr("姓名") = currenttable.current("姓名")
    dr("错误信息") = "身份证号与出生时间矛盾!"
    Maintable = Tables("审核结果")
end if