当符合条件时，自动填入数据，并自动向下增加行，填入数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

你要根据排序时间排序，就不可能有你的问题

恩另外一张表我做了排序，在另外一个贴我才请教过我们，但引过来的时候，时间上就乱了。

不可能，例子上传上来。

here we go.......

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

比如测试星期二的，选择一个星期二的日期，再选老客户，从另外的表调用出来的数据时间上就是乱的。

If e.DataCol.Name = "日期" Then
    If e.NewValue = Nothing Then
        e.DataRow("星期") = Nothing
    Else
        e.DataRow("星期") = Format(e.DataRow("日期"), "dddd")
        CurrentTable.AddNew(2)
    End If
End If

If e.DataCol.Name = "时间" Then
    If e.NewValue = Nothing Then
        e.DataRow("排序时间") = Nothing
    Else
        e.DataRow("排序时间") = e.DataRow("时间").Substring(3)
    End If
End If

If e.DataCol.Name = "日期" Then
    If e.NewValue = Nothing Then
        e.DataRow("星期") = Nothing
    Else
        e.DataRow("星期") = Format(e.DataRow("日期"), "dddd")
    End If
Else If (e.DataCol.Name = "星期" OrElse e.DataCol.Name = "新老客户") AndAlso e.DataRow("新老客户")="老客户" Then
    Dim i As Integer = 0
    Dim dr As DataRow
    SystemReady = False
    For Each fdr As DataRow In DataTables("客户数据").Select("固定时间 = '" & e.DataRow("星期") & "'", "固定排序,排序时间")
        If i = 0 Then
            dr = e.DataRow
        Else
            dr = e.DataTable.AddNew
        End If
        dr("日期") = e.DataRow("日期")
        dr("星期") = e.DataRow("星期")
        dr("新老客户") = e.DataRow("新老客户")
        dr("客户信息") = fdr("综合信息")
        dr("时间") = fdr("时间")
        dr("支付方式") = fdr("支付方式")
        dr("备注") = fdr("备注")
        dr("排序时间") = fdr("时间").Substring(3)
        i += 1
    Next
    e.DataTable.DeleteFor("日期 is Null")
    SystemReady = True
    Tables("派工表").sort = "日期,排序时间"
    CurrentTable.AddNew(5)
End If

If e.DataCol.Name = "客户信息" Then
    Dim dr As DataRow
    dr = DataTables("客户数据").Find("综合信息 = '" & e.DataRow("客户信息") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("时间")= dr("时间")
        e.DataRow("支付方式")= dr("支付方式")
        e.DataRow("备注")= dr("备注")
    End If
End If

恩稿定，谢谢！

还有一个问题，当选中几行，按删除时，会有个错误提示：

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2014.11.11.1

错误所在事件：表，派工表，DataColChanged

详细错误信息：

调用的目标发生了异常。

此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据

If e.DataCol.Name = "日期" Then
    If e.NewValue = Nothing Then
        e.DataRow("星期") = Nothing
    Else
        e.DataRow("星期") = Format(e.DataRow("日期"), "dddd")
    End If
Else If (e.DataCol.Name = "星期" AndAlso e.DataRow.IsNull("星期") = False OrElse e.DataCol.Name = "新老客户") AndAlso e.DataRow("新老客户")="老客户" Then
    Dim i As Integer = 0
    Dim dr As DataRow
    SystemReady = False
    For Each fdr As DataRow In DataTables("客户数据").Select("固定时间 = '" & e.DataRow("星期") & "'", "固定排序,排序时间")
        If i = 0 Then
            dr = e.DataRow
        Else
            dr = e.DataTable.AddNew
        End If
        dr("日期") = e.DataRow("日期")
        dr("星期") = e.DataRow("星期")
        dr("新老客户") = e.DataRow("新老客户")
        dr("客户信息") = fdr("综合信息")
        dr("时间") = fdr("时间")
        dr("支付方式") = fdr("支付方式")
        dr("备注") = fdr("备注")
        dr("排序时间") = fdr("时间").Substring(3)
        i += 1
    Next
    e.DataTable.DeleteFor("日期 is Null")
    SystemReady = True
    Tables("派工表").sort = "日期,排序时间"
    CurrentTable.AddNew(5)
End If

Else If (e.DataCol.Name = "星期" AndAlso e.DataRow.IsNull("星期") =

改了这一句对吧，甜甜真的是大神啊！给32个赞

主题：当符合条件时，自动填入数据，并自动向下增加行，填入数据