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

共有2251人关注过本帖树形打印复制链接主题：求助

gcc123

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：3087 威望：0 精华：0 注册：2014/6/10 11:31:00

求助

Post By：2016/4/15 15:59:00 [显示全部帖子]

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

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

gcc123

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：3087 威望：0 精华：0 注册：2014/6/10 11:31:00

Post By：2016/4/16 16:43:00 [显示全部帖子]

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

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

gcc123

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：3087 威望：0 精华：0 注册：2014/6/10 11:31:00

回复：（Hyphen）If e.DataCol.name = "金额" Then&nb... 发帖心情

Post By：2016/4/17 11:56:00 [显示全部帖子]

谢谢老师现在遇到的问题是当表A中事由列内容不是支款时改成支款后对应的车表中支公司款列数据不自动填充，只有表A事由列改成支款后金额列数据剪切再粘贴对应的车表中数据才填充。同理修改表A中日期事由列为支款金额三列内容对应的车表中数据都应该跟着自动填充
图片点击可在新窗口打开查看

此主题相关图片如下：11111111.png

gcc123

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：3087 威望：0 精华：0 注册：2014/6/10 11:31:00

回复：（Hyphen）If e.DataCol.name <> "欠款人... 发帖心情

Post By：2016/4/17 17:23:00 [显示全部帖子]

谢谢老师的耐心帮助！

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160417171030.png

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

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

gcc123

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：3087 威望：0 精华：0 注册：2014/6/10 11:31:00

回复：（大红袍）参考代码 Dim t As Table = T... 发帖心情

Post By：2016/4/18 0:59:00 [显示全部帖子]

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

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

gcc123

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：3087 威望：0 精华：0 注册：2014/6/10 11:31:00

回复：（大红袍）参考代码啊 Dim t As Table... 发帖心情

Post By：2016/4/18 10:16:00 [显示全部帖子]

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

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160418101038.png

时间排序后怎么不变成这样呢？

Dim t As Table = Tables("车751")   此处要是有很多车XXX表这个地方该怎么写？
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
Tables("车751").Sort = "日期"

gcc123

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：3087 威望：0 精华：0 注册：2014/6/10 11:31:00

回复：（大红袍）Dim tnames() As String = {"车751"}... 发帖心情

Post By：2016/4/18 12:57:00 [显示全部帖子]

Dim tnames() As String = {"车751"} 改成车鲁H7A751
For Each tname As String In tnames
Dim t As Table = Tables(tname)
Dim mindate As Date = t.Compute("min(日期)", "日期 is not null")
Dim maxdate As Date = t.Compute("max(日期)", "日期 is not null")
t.DataTable.ReplaceFor("_Sortkey", 9999, "日期 is null")
Dim i As Integer = 0
Do While mindate <= maxdate
    Dim nr As Row
    Dim idx As Integer = t.FindRow("日期 = #" & mindate & "#")
    If idx < 0 Then
        nr = t.AddNew
        nr("日期") = mindate
        nr("车号") = "751" 改成鲁H7A751
        nr("支客户款") = 0
    Else
        nr = t.Rows(idx)
    End If
    nr("_Sortkey") = i
    i += 1
    mindate = mindate.AddDays(1)
Loop

怎么别的车表没反应呢？

图片点击可在新窗口打开查看

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

下一主题 >> << 上一主题

主题：求助