关于项目属性的处理 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

密码：111222333

　　我想在个人明细窗口里做一个当打开个人明细窗口，如果按按钮，所选时间内筛选数据为空，那么自动添加50行；在个人明细窗口中如果最后一行不为空，则自动添加一行，当关闭个人明细窗口，自动删除所有空行。

[此贴子已经被作者于2016/7/19 14:23:30编辑过]

还有在个人明细窗口中如果最后一行不为空，则自动添加一行效果没实现。

哦，已自动添加了一行了。

个人明细窗口没了筛选条件了！

[此贴子已经被作者于2016/7/19 14:24:21编辑过]

　　我要求没选时间，没按按钮，不加载数据，原是不加载的，添加了你的程式后自动加载数据进来了。
图片点击可在新窗口打开查看

此主题相关图片如下：捕获1.png

以下是引用Hyphen在2016/7/18 12:08:00的发言：
看2楼

如果想在窗口启动就增加afterload事件

With Tables("冲压车间工资表")

If .Rows.Count > 0 Then

If .Rows(.Rows.Count - 1).IsNull("姓名") = False Then

.AddNew()

End If

End With

　　还有能否识别整行中任何一个单位格不为空，则不能删除，只有整行全为空才删除？如果实在不行那就设如果日期或姓名为空，则删除行，你这自动添加行的条件最好设为当最后一行日期或姓名不为空，则自动添加一行。

[此贴子已经被作者于2016/7/18 20:14:31编辑过]

原自动添加行设在冲压车间工资表的表属性里：

If e.Col.name = "日期" OrElse e.Col.name = "姓名" Then
    If e.Row.Index = e.Table.Rows.Count-1 Then
        If e.Row.IsNull(e.Col.name) = False Then
            e.Table.DataTable.AddNew
        End If
    End If
End If

以下是引用大红袍在2016/7/19 0:14: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("冲压车间工资表").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 Then
                .AddNew()
            End If
        End With
    End If
Else
    Tables("冲压车间工资表").Filter = "1=2"
End If

添加行的条件只有一个条件，我要最后一行日期或姓名不为零，自动添加一行。

[此贴子已经被作者于2016/7/19 9:03:44编辑过]

以下是引用Hyphen在2016/7/19 8:50:00的发言：
看懂代码，条件可以自己任意加

......

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

......

　　我加过，报错了才来问你们。

　　明白了，我的编写格式有问题。

主题：关于项目属性的处理