DataGrid的，怎样自己定义datagrid表上显示的字段，50分必给！

Question

DataGrid的，怎样自己定义datagrid表上显示的字段，50分必给！Private Sub Form_Load()
    Dim Rs   As New ADODB.Recordset
    Dim querySql As String
    
    querySql = "SELECT * FROM t_landrent"
    
    Rs.CursorLocation = adUseClient
    Rs.Open querySql, con, adOpenDynamic, adLockBatchOptimistic
    Set DataGrid1.DataSource = Rs
End Sub
这个运行后，把DB里的数据库字段名显示出来了，可是字段名是英文的，
怎么做？多谢！

Answer 1

用右键点DataGrid,再点"编辑",添加足够的字段,然后点"属性",在属性对话框的"列"中分别输入标题和要绑定的字段名称.给分!

Answer 2

querySql = "SELECT field1,field2,field3 FROM t_landrent"
sql语句中确定显示什么字段
Set DataGrid1.DataSource = Rs
datagrid1.columns(0).caption="字段1"
datagrid1.columns(1).caption="字段2"

Answer 3

DataGrid1.Columns(0).Caption = "职工编号"
    DataGrid1.Columns(1).Caption = "部门编号"
    DataGrid1.Columns(2).Caption = "刷卡日期"
    DataGrid1.Columns(3).Caption = "刷卡数据"
    DataGrid1.Columns(4).Caption = "职工卡号"

Answer 4

这样：select field1 as 职工编号,field2 as 部门编号,field3 as 刷卡编号 from t_landrent只在sql语句里按上面的语法改，其它什么都可以不用改了。

Answer 5

querySql = "select name as 姓名,sex as 性别,idcard as 身份证号码,memberkind as 人员性质,workaddress as 工作单位,distributing as 人员分布,retirekind as 退休情况,provide as 养老统筹,kultur as 文化程度,cadre as 干部情况,duty as 职称情况 from t_landrent"