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.Cjb.AddTable("资金账号","账号编号","资金支出单","账号编号")jb.AddCols("付款单编号","账号名称", "支出金额","付款日期")jb.filter = "账号名称 ='" & k & "'" & "and 付款日期>#" & g & "#"Tables("资金流向明细表_Table1").datasource =jb.builddatasourceelse
MessageBox.Show("对不起,您没有在资金流向明细表选择行!")
end if