主题：临时表中的drawcell事件里怎么获取单元格的内容

If e.Col.Name = "xxx列" Then

    Dim s1 As String

    s1= e.Row(e.Col.name)  ' s1获取单元格的值

    Dim zclqueren1 As String

    Dim dr As DataRow

    dr=DataTables("userb").Find("name= '" & s1.Trim() & "'" )  '去掉单元格的值的空格,  userb是客户信息表,找到姓名是单元格的值的这个客户记录

    Dim wz As Integer

    If dr IsNot Nothing Then

        wz = Tables("userb").FindRow(dr)      '在客户信息表里找到单元格里的姓名的那个人的记录

        If wz >= 0 Then

            zclqueren1 =Tables("userb").Rows(wz)("zclqueren")

            If zclqueren1="入住" Then        '确认程度如果是入住状态,那么就把这个格标记e.style=a

                e.Style = "a" '

            End If

        End If

    End If

End If

If e.Col.Name = "xxx列" Then

    Dim s1 As String

    s1= e.Row(e.Col.name)  ' s1获取单元格的值

   ' Dim zclqueren1 As String

    Dim dr As DataRow

    dr=DataTables("userb").Find("name= '" & s1.Trim() & "'" )  '去掉单元格的值的空格,  userb是客户信息表,找到姓名是单元格的值的这个客户记录

    'Dim wz As Integer

    If dr IsNot Nothing Then

        'wz = Tables("userb").FindRow(dr)      '在客户信息表里找到单元格里的姓名的那个人的记录

        'If wz >= 0 Then

         '   zclqueren1 =Tables("userb").Rows(wz)("zclqueren")

            If dr("zclqueren")="入住" Then        '确认程度如果是入住状态,那么就把这个格标记e.style=a

                e.Style = "a" '

            End If

        'End If

    End If

End If