主题：求几个命令

我之前 签到按钮的 命令是 ：

 

Dim md As String
md=Tables("教师签到表").Current("姓名")

If Tables("教师签到表").Current("签到")=False Then
    Dim Result As DialogResult
    Result = MessageBox.Show(md &" 要签到吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        Tables("教师签到表").Current("签到")=True
        Tables("教师签到表").Current.Save
        MessageBox.Show(md &" 签到成功","提示")
    End If
Else
    MessageBox.Show(md &" 已签到,不能重复签到","警告")
   
End If

此主题相关图片如下：12.png


此主题相关图片如下：222.jpg

教师签到表 是个空白表格，窗口中4个选项 绑定到空白表中的4个列，数据来源另外一个表格。

我是希望单击签到按钮以后，在教师签到表中 增加一行信息 分别4列数据

此主题相关图片如下：43434.jpg

单击关闭按钮后  关闭该窗口 弹出教师签到表绑定的窗口 展示数据

怎么做例子啊 ？

 

发布一个简单的项目吗？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:bin.rar

这样？就是BIN文件夹里的内容吗？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:学生一览表.foxdb

这样就可以了吗