msflexgrid中如何使某一列数据显示为*！

Question

cyunh(cyh)老大帮我，怎么修改！

Answer 1

是Access数据库？
更改所绑定的数据控件的记录源：
data1.recordsource = "SELECT Userid, UserNme, string(len(password),"*") AS password FROM yourtable"

Answer 2

如果没有绑定，写入记录时写成string(len(rs!password),"*")就可以了。

Answer 3

是SQL SERVER 2000，
strsql = "select User_Id ,User_Account,UserName,string(len(Password),' * ') as Password,UserInfo,Creator from User_Account order by User_Id "提示string没有定义？？？

Answer 4

Public Function UserList(ByVal strcnn As String) As ADODB.Recordset                '显示所有用户帐号
On Error GoTo err_trap:
    Dim rs As New ADODB.Recordset
    Dim strsql As String
    strsql = "select User_Id ,User_Account,UserName,string(len(Password),' * ') as Password,UserInfo,Creator from User_Account order by User_Id "
    
    rs.CursorType = adOpenStatic
    rs.CursorLocation = adUseClient
    rs.Open strsql, strcnn
    
    Set UserList = rs
    Set rs = Nothing
    Exit Function
err_trap:
    Set UserList = Nothing
    Set rs = Nothing
End Function
这是在class Model中的一段代码？？

Answer 5

为什么你一定要把密码显示出来呢？直接在写SQL语句的时候把它过滤掉就行了三！