为什么联合查询的记录集,赋给
为什么下面的SQL记录集,赋给 mshflexgrids 时,不能正确显示记录集?

sql = "(select riqi 日期 ,beizhu 摘要,rksl 入库数量,0 出库数量,0 期末数量"
sql = sql & " from " & tbl2 & " where cpdm='" & Txt(1).Text & "') "
sql = sql & " union all (select riqi 日期,beizhu 摘要,0 入库数量,cksl 出库数量,0 期末数量 "
sql = sql & " from " & tbl3 & " where cpdm='" & Txt(1).Text & "')"
.....


set mshflexgrids1.DataSource = Rs1

[解决办法]
rs1记录集是如何打开的？
[解决办法]
你确信rs1里面有数据？
mshflexgrids1.Refresh
加在后面试试看
[解决办法]
Set rs = New ADODB.Recordset
rs.ActiveConnection = cn '使记录集对象与连接对象关联
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
cn.CursorLocation = adUseClient

rs.Source = sql语句
rs.Open

这样打开记录集看看.
[解决办法]
和联合查询没有关系
If Not Rs1.EOF Then
这么做不科学，应该用
if rs1.recordcount>0 then