主题：怎样新增到表里 ？？？？

怎样把图1里的新增到图2里 ？如何实现 ？谢谢  ！！！ 

 

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


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

新增的时候  在 Click里 输入这段对吧 ？？？

 

 

Tables("xx表").AddNew

感谢版主 ！

 

     再一个问题    如图

  在点击 想新增员工表的时候 进入的时候 直接指到空格行， 不需要每次都去点新增一行在录入数据保存，

直接进入就是空格行，输入数据 后再保存 如图1    而不是图2    怎么设置呢 ？

 

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


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

这样的话，每次只要一进入就会多增加一行空格行，如果不录入数据的话，空格行就会越来越多， 怎样杜绝空格行越来越多？

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

很感谢您！想你说的这样的话，是能实现了，但这删除的 没有删除的掉了，

 

 

但点开这，选择一行点删掉，表格里也减少一行了，点关闭后， 又恢复了才也删掉的行，这里该怎么设置呢？谢谢

我在 关闭按钮里  If DataTables("月度工资及考核表").HasChanges Then
DataTables("月度工资及考核表").Load(False)
DataTables("月度工资及考核表").Save()
End If

Forms("月度工资及考核录入表").Close

 

 

在删除的按钮下  Dim Result As DialogResult
Result = MessageBox.Show("你已经想好需要删除这条数据吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Tables("月度工资及考核表").Current.Delete
    MessageBox.Show("你已经成功删除了本条数据!")
    DataTables("月度工资及考核表").Save()
End If

 

 这样是正确的撒 ，老大

嗯，多谢，效果还蛮可以的。这软件很强大

 

 只是我在写代码的时候还不太熟悉， 有的时候是在论坛里找相关相似的来用。

 

还有一个问题 

 

当我在新增数据的时候，点保存后，在表里 有的行里不自动输入显示， 我去到表里点击一下，就填充了。那我该怎样写代码？在我录入的时候没录入的数据自动录入

 

如图

 

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


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


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

 看来我还是没有搞懂 ，出现错误提示   “不存在名称为“姓名”的DataTable” 

 

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
Dim wz As Integer
Dim dr As DataRow
dr = DataTables("姓名").Find("[员工登记表] = '" & e.Table.Current("员工登记表") & "'")
If dr IsNot Nothing Then
    wz = Tables("姓名").FindRow(dr)
    If wz >= 0 Then
        Tables("姓名").Position = wz
    End If
End If

 图

此主题相关图片如下：1.jpg
这个表里的 姓名是图2里数据

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


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

基本工资还是调不过来 还是空的