以下是引用大红袍在2016/7/19 20:28:00的发言:
你原本表里面的事件代码,不要修改就好了。
其实我在查询窗口里搞那么多东西是因为它绑定到表,可编辑,我添加行就可以继续录入数据,也可当作单据模板录入新的数据。我在个人明细窗口按钮里加入添加行的条件,结果报错:
Dim Filter As String
With e.Form.Controls("cmbProduct")
If .Value IsNot Nothing Then
Filter = Filter & "姓名 = '" & .Value & "'"
End If
End With
With e.Form.Controls("StartDate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 >= #" & .Value & "# "
End If
End With
With e.Form.Controls("EndDate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 <= #" & .Value & "# "
End If
End With
If Filter > "" Then
Tables("冲压车间工资表").Filter = Filter '设置筛选条件
Dim t As Table = Tables("冲压车间工资表")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = False
Tables("冲压车间工资表").DataTable.DeleteFor("日期 is null" Or "姓名 Is null")
Tables("冲压车间工资表").AutoAddNew = True
If Tables("冲压车间工资表").Rows.Count = 0 Then
Tables("冲压车间工资表").AddNew(50)
Else
With Tables("冲压车间工资表")
.DataTable.DeleteFor("日期 is null")
If .Rows(.Rows.Count - 1).IsNull("日期") = False OrElse .Rows(.Rows.Count - 1).IsNull("姓名") = False Then
.AddNew()
End If
End With
End If
End If
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:2015.png
[此贴子已经被作者于2016/7/19 20:56:41编辑过]