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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码错误

共有2663人关注过本帖树形打印复制链接主题：代码错误

程兴刚

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

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2020/3/22 23:49:00 [显示全部帖子]

if Tables("资金流向明细表").current isnot nothing

Dim jb As New SQLJoinTableBuilder("查询表1","资金账号")
Dim k As String = Tables("资金流向明细表").current("账号名称")
Dim g As Date = Tables("资金流向明细表").current("开始时间")
Dim f As Date = Tables("资金流向明细表").current("结束时间")
jb.C
jb.AddTable("资金账号","账号编号","资金支出单","账号编号")
jb.AddCols("付款单编号","账号名称", "支出金额","付款日期")
jb.filter = "账号名称 ='" & k & "'" & "and 付款日期>#" & g & "#"
Tables("资金流向明细表_Table1").datasource =jb.builddatasource

else

MessageBox.Show("对不起，您没有在资金流向明细表选择行！"）

end if