能把我的问题解决者.算是当今第一高手

Private Sub Reset()
  Grid.Clear
  Grid.Rows = 1
  Grid.FormatString = "^编号|^  期 号  |^ 号 码 |^和值|^  大小比  |^  奇偶比  |^组合类型|^   日  期   |^ 单奖注数 |^单奖奖金|^组3注数|^组3奖金|^组6注数|^组6奖金|^ 总销售额 |^备注 "
  Grid.Enabled = True
End SubPrivate Sub MsflexGridFill()
    Call Reset
    Dim strSql As String
        strSql = "select top 5 * from PL_3 order by id desc"
        Set rs = OpenSQL(strSql)        If Not rs.EOF Then            Do While Not rs.EOF
               'MsgBox rs("T_Content")
               Grid.Rows = Grid.Rows + 1
               Grid.TextMatrix(Grid.Rows - 1, 0) = rs.Fields("Id")
               Grid.TextMatrix(Grid.Rows - 1, 1) = rs("T_Number")
               Grid.TextMatrix(Grid.Rows - 1, 2) = rs("T_1") & "," & rs("T_2") & "," & rs("T_3")
               Grid.TextMatrix(Grid.Rows - 1, 3) = rs("T_Count")
               Grid.TextMatrix(Grid.Rows - 1, 4) = rs("T_Big_Small")
               Grid.TextMatrix(Grid.Rows - 1, 5) = rs("T_Jo")
               Grid.TextMatrix(Grid.Rows - 1, 6) = rs("T_Type")  'T_Type
               Grid.TextMatrix(Grid.Rows - 1, 7) = rs("T_Date")  '比如说把rs("T_Date")改成rs("T_Content")就可以显示
'一个奇怪现象.把rs(t_content)这个放在这里以前就可以,放在后面就不显示
               Grid.TextMatrix(Grid.Rows - 1, 8) = rs("T_Dj")
               Grid.TextMatrix(Grid.Rows - 1, 9) = rs("T_DjMoney")
               Grid.TextMatrix(Grid.Rows - 1, 10) = rs("T_3j")
               Grid.TextMatrix(Grid.Rows - 1, 11) = rs("T_3jMoney")
               Grid.TextMatrix(Grid.Rows - 1, 12) = rs("T_6j")
               Grid.TextMatrix(Grid.Rows - 1, 13) = rs("T_6jMoney")
               Grid.TextMatrix(Grid.Rows - 1, 14) = rs("T_CountMoney")
               Grid.TextMatrix(Grid.Rows - 1, 15) = rs("T_Content")  '放这里就不显示
            rs.MoveNext
            Loop         Else
                Exit Sub
         End If
End Sub

解决方案 »

  1.   

    Grid.TextMatrix(Grid.Rows - 1, 15) = rs("T_Content")  '放这里就不显示你换成
    rs("T_Number")这个试试看。如果也不显示，看看你的grid属性是不是有那么多列，怀疑你少开了一列
      

  2.   

    是的.把rs("t_number")放在后面也是可以显示的.就是T_Content不显示..我也不知道为什么....
      

  3.   

    你试试看给你的grid多加一列
    实在不成只能调整顺序了
      

  4.   

    Grid.TextMatrix(Grid.Rows - 1, 15) = rs("T_Content") '放这里就不显示換成
    Grid.TextMatrix(Grid.Rows - 1, 15) =replace("" & rs("T_Content"),char(13),"")
      

  5.   

    Grid.TextMatrix(Grid.Rows - 1, 15) = rs("T_Content") '放这里就不显示換成
    Grid.TextMatrix(Grid.Rows - 1, 15) =replace("" & rs("T_Content"),Chr(13),"")
    試試
      

  6.   

    原代码发来看看。
    [email protected]
      

  7.   

    1、看看你的grid属性是不是有那么多列，怀疑你少开了一列，试试看给你的grid多加一列2、
    如果数据库里面存在("T_Content") 字段的话， 
    将
    Grid.TextMatrix(Grid.Rows - 1, 15) = rs("T_Content")  
    改成
    Grid.TextMatrix(Grid.Rows - 1, 15) = rs("T_Content")& ""  
    试试看
      

  8.   

    问题确实很奇怪 Grid.TextMatrix(Grid.Rows - 1, 15) =iif(isnull(rs("T_Content")),"",rs("T_Content"))
      

  9.   

    Grid.FormatString = "^编号|^  期 号  |^ 号 码 |^和值|^  大小比  |^  奇偶比  |^组合类型|^   日  期   |^ 单奖注数 |^单奖奖金|^组3注数|^组3奖金|^组6注数|^组6奖金|^ 总销售额 |^备注 |少一裂" 
    一共14裂
      

  10.   

    怎么有那么多人喜欢用Grid控件啊，我觉得这个控件虽然效率比较高，但不太好用啊～～
      

  11.   

    删除了这个grid,重新添加一个，在默认属性下试试。同时标头用Grid.TextMatrix(0, 0)=“编号”这样的方法试试