主题：求助

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

点击浏览该文件:管理项目8.table

希望在表A欠款人列 金额列 输入数据后 ，对应的表车XXX 中 同一日期 在支款列中自动填入表A中所输入的金额列数据

dataColChanged事件

 

If e.DataCol.name = "金额" Then
    If e.DataRow.IsNull("日期") = False AndAlso e.DataRow.IsNull("欠款人") = False Then
        Dim fdr As DataRow = DataTables("车" & e.DataRow("欠款人")).Find("日期 = #" & e.DataRow("日期") & "#")
        If fdr Is Nothing Then
            fdr =  DataTables("车" & e.DataRow("欠款人")).addnew
            fdr("日期") = e.DataRow("日期")
            fdr("车号") = e.DataRow("欠款人")
        End If
        fdr("支款") = e.DataRow("金额")
    End If
End If

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

点击浏览该文件:管理项目8.table

如果说再加一种限制条件就是当表A事由列仅为支款时  对应的车号 日期 数据自动导入  这样不知道能不能做到？

谢谢老师 现在遇到的问题是 当表A中事由列内容不是支款时 改成支款后 对应的车表中支公司款列数据不自动填充，只有表A事由列改成支款后金额列数据剪切再粘贴 对应的车表中数据才填充。同理修改表A中日期 事由列为支款 金额 三列内容对应的车表中数据都应该跟着自动填充
此主题相关图片如下：11111111.png

谢谢老师的耐心帮助！

 

此主题相关图片如下：qq截图20160417171030.png

车751表中的数据是通过其他的表自动生成的，如果说4月16日 车子休息  我希望在车751表中自动插入16日一行并且车号列自动填写成751，支客户款 现金运费开支明细 列自动为0

货物名称列 填写成休息  支客户款 加油金额是空白 不填写内容  运转状态 选择正常  

参考代码

 

Dim t As Table = Tables("车鲁H7H165")
Dim mindate As Date = t.Compute("min(日期)", "日期 is not null")
Dim maxdate As Date = t.Compute("max(日期)", "日期 is not null")
Do While mindate <= maxdate
    If t.FindRow("日期 = #" & mindate & "#") < 0 Then
        Dim nr As Row = t.AddNew
        nr("日期") = mindate
    End If
    mindate = mindate.AddDays(1)
Loop

 

 

 

老师能具体在例子上边帮我改下么，谢谢！

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

点击浏览该文件:管理项目8.table

参考代码啊

 

Dim t As Table = Tables("车751")
Dim mindate As Date = t.Compute("min(日期)", "日期 is not null")
Dim maxdate As Date = t.Compute("max(日期)", "日期 is not null")
Do While mindate <= maxdate
    If t.FindRow("日期 = #" & mindate & "#") < 0 Then
        Dim nr As Row = t.AddNew
        nr("日期") = mindate
        nr("车号") = "751"
        nr("支客户款") = 0
    End If
    mindate = mindate.AddDays(1)
Loop