MSFlexGrid1.AddItem rs1.Fields("姓名") + vbTab + CStr(rs1.Fields("语文"))    '正确的

str="rs1.Fields(""姓名"") + vbTab + CStr(rs1.Fields(""语文""))"
MSFlexGrid1.AddItem str   '这样为什么就不行了？

哦，就是对的，那这样行吗？
strrss = rs1.Fields(rs1(0).Name)
for i = 1 to rs1.Fields.count - 1
strrss = strrss + vbTab + CStr(rs1.Fields(rs1(i).Name))
next i
    Do Until rs1.EOF
        MSFlexGrid1.AddItem strrss
        rs1.MoveNext
    Loop

[ 本帖最后由 txxb 于 2014-12-4 14:34 编辑 ]