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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 科目导入

共有17704人关注过本帖树形打印复制链接主题：科目导入

发财

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

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

科目导入

Post By：2015/10/12 15:51:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:piao据打印.rar

发财

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

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2015/10/12 15:53:00 [显示全部帖子]

如何在打开凭证，点击里面一级科目能自动导入选择的科目（一级和二级的）？

发财

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

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2015/10/12 16:49:00 [显示全部帖子]

如何在点击录入时，添加下一凭证，凭证窗口为空白凭证，录齐该凭证后，点击录入自动保存，又添加新的空凭证（窗口显示空白凭证）？

发财

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

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2015/10/12 16:49:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:piao据打印.table

发财

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

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2015/10/12 17:02:00 [显示全部帖子]

如何使新凭证窗口显示为空白？

发财

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

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2015/10/12 17:05:00 [显示全部帖子]

旧凭证自动隐藏？

发财

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

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2015/10/12 17:15:00 [显示全部帖子]

窗口只显示一个凭证号的凭证？

发财

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

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2015/10/13 9:00:00 [显示全部帖子]

Tables("凭证明细").Select(0,1)
Tables("凭证明细").StartEditing
上述代码（0，1）如何选定为当前行的借方金额？

发财

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

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2015/10/13 9:57:00 [显示全部帖子]

Dim r As Row = Tables("凭证明细").AddNew(4)
Dim tt As Table = Tables("凭证明细")
r("日期")= tt.Rows(0)("日期")
r("凭证类别")= tt.Rows(0)("凭证类别")
Dim dr As Table = Tables("凭证明细")
r("凭证ID") = dr.Compute("Max(凭证ID)") + 1
Tables("凭证明细").Filter="凭证ID = '" & r("凭证ID") & "'"
Tables("凭证明细").Select(Tables("凭证明细").Current.Index, Tables("凭证明细").Cols("摘要").index)
Tables("凭证明细").StartEditing

如何同时将增4行的内容同时导入相同的日期、凭证ID？

发财

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

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2015/10/13 10:27:00 [显示全部帖子]

Dim r1 As Row = Tables("凭证明细").AddNew()
Dim tt As Table = Tables("凭证明细")
r1("日期")= tt.Rows(0)("日期")
r1("凭证类别") = tt.Rows(0)("凭证类别")
Dim dr As Table = Tables("凭证明细")
r1("凭证ID") = dr.Compute("Max(凭证ID)") + 1
Dim r2 As Row = Tables("凭证明细").AddNew()
r2("日期")= tt.Rows(0)("日期")
r2("凭证类别")= tt.Rows(0)("凭证类别")
r2("凭证ID") = r1("凭证ID")
Dim r3 As Row = Tables("凭证明细").AddNew()
r3("日期")= tt.Rows(0)("日期")
r3("凭证类别")= tt.Rows(0)("凭证类别")
r3("凭证ID") = r1("凭证ID")
Dim r4 As Row = Tables("凭证明细").AddNew()
r4("日期")= tt.Rows(0)("日期")
r4("凭证类别")= tt.Rows(0)("凭证类别")
r4("凭证ID") = r1("凭证ID")
Tables("凭证明细").Filter="凭证ID = '" & r1("凭证ID") & "'"
Tables("凭证明细").Select(Tables("凭证明细").Current.Index - 3, Tables("凭证明细").Cols("摘要").index)
Tables("凭证明细").StartEditing

如何将代码简化点？

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

总数 172 1 2 3 4 5 6 7 8 9 10 下一页 ..18

主题：科目导入