我有一个mshfiexgrid,由按钮控制可以显示好多张表,但我数据库(access数据库)建的表字段名全是英文的,我想在mshflexgrid里显示字段名为中文,请问各位高手该怎么弄,代码贴的具体点,谢了!!
解决方案 »
- vb如何判断一个快捷方式是文件夹的快捷方式,并进而得到该对应的文件夹名和完整路径?
- Combo控件添加时间问题 在线等
- timer控件可以实现这样的东西吗?
- 高分征求鼠标控制程序
- 我的access数据库无法在vb6中载入,是怎么回事?
- 用水晶报表8.0为何会有runtime license required的提示,回答正确者一定给分
- 还是老问题:运行时出现了“对象关闭时不允许操作”实时错误3704,请问大家怎么改呢?谢谢!
- 我的大部分问题都以解决,还有问题,就是form不要边框,Label和form一样大,那样的话没法选中form移动,能否点着label移动呀?
- 鉴于很多人在找关于修改内存的程序,特贴出一源代码(原出自taolei提供的一个范例)
- 怎样得到form中所有object的name!
- formatnumber问题目
- 请教vb问题:怎样将vb中recordset对象查询的结果有选择性的写入到sql数据库表中
MSHFlexGrid1.TextMatrix(0, 1) = "字段名1"
MSHFlexGrid1.TextMatrix(0, 2) = "字段名2"
MSHFlexGrid1.TextMatrix(0, 3) = "字段名3"
'....
'表格的标题
stitle = "^|^项目|^标签值(M)|^上公差|^下公差|^实测值1 |^实测值2|^实测值3|^平均值(Mx)|^误差(Mx-M)|^备注"
stitle = stitle & ";|1|2|3|4|5|6|7|8|9|10|11|12|13" MSHFlexGrid1.FormatString = stitle '就自动做成13*10的表格
With MSHFlexGrid1
.Col = 1
.Sort = 2
.AllowBigSelection = True
'设置表头
.TextMatrix(0, 0) = ""
.TextMatrix(0, 1) = ""
.TextMatrix(0, 2) = "零件名称"
.TextMatrix(0, 3) = "零件图号"
.TextMatrix(0, 4) = "课题代号"
.TextMatrix(0, 5) = "批次"
.TextMatrix(0, 6) = "数量"
.TextMatrix(0, 7) = "入库时间"
.TextMatrix(0, 8) = "位置"
.TextMatrix(0, 9) = "备注"
'设置列宽
.ColWidth(0) = 200
.ColWidth(1) = 0
.ColWidth(2) = 1400
.ColWidth(3) = 1000
.ColWidth(4) = 1000
.ColWidth(5) = 800
.ColWidth(6) = 500
.ColWidth(7) = 1000
.ColWidth(8) = 1000
.ColWidth(9) = 4650
For r = 1 To .Rows - 1 Step 2
For c = 1 To .Cols - 1
.Row = r
.Col = c
.CellBackColor = &HC0FFC0 '设置奇数行的背景色为"浅绿色"
Next c
Next r
End With
End Sub这是我写的,虽然麻烦,但是明了。
还有个方法就是表的字段名用英文建,然后在字段的注释中写上中文名,然后在读数据库的时候把每个字段的注释读出来作为你的GRID的表头.
当然,MS的数据库读取字段注释是比较垃圾的,正常点的方法是读不到这个属性的,要用"非常规"的方法去读. 无论ACCESS还是SQL SERVER都是.这种方法方便之处在于,和VB代码无关,如果想修改你程序中的表头名字,也只需要打开数据库改一下字段的注释就可以了不过,我背不出那段代码,楼主自己上网查一下就知道了,老长一个SQL语句.
还有个方法就是表的字段名用英文建,然后在字段的注释中写上中文名,然后在读数据库的时候把每个字段的注释读出来作为你的GRID的表头.
当然,MS的数据库读取字段注释是比较垃圾的,正常点的方法是读不到这个属性的,要用"非常规"的方法去读. 无论ACCESS还是SQL SERVER都是.这种方法方便之处在于,和VB代码无关,如果想修改你程序中的表头名字,也只需要打开数据库改一下字段的注释就可以了不过,我背不出那段代码,楼主自己上网查一下就知道了,老长一个SQL语句.