| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1633 人关注过本帖, 1 人收藏
标题:以下的代码看不懂,请教,
只看楼主 加入收藏
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
结帖率:100%
收藏(1)
已结贴  问题点数:10 回复次数:5 
以下的代码看不懂,请教,
程序代码:
MSFlexGrid1.Clear
MSFlexGrid1.Visible = True
With MSFlexGrid1
    .Cols = 8
    .Rows = 1
    
    '这下面的是什么?卡不懂
    .TextMatrix(0, 0) = Space(3) & "序号"
    .TextMatrix(0, 1) = Space(6) & "设备编号"
    .TextMatrix(0, 2) = Space(6) & "抽屉台车号"
    .TextMatrix(0, 3) = Space(6) & "坏点位置"
    .TextMatrix(0, 4) = Space(6) & "坏点现象"
    .TextMatrix(0, 5) = Space(6) & "确认状态"
        .TextMatrix(0, 6) = Space(7) & "提交人员"

 .TextMatrix(0, 6) = Space(7) & "权限"
    
    .ColWidth(0) = 1000   '14954.86
    .ColWidth(1) = 2000
    .ColWidth(2) = 2000
    .ColWidth(3) = 2000
    .ColWidth(4) = 2000
    .ColWidth(5) = 2000
   .ColWidth(6) = 2000
      .ColWidth(7) = 2000
     .ColWidth(8) = 2000
     
End With
搜索更多相关主题的帖子: Space With 状态 代码 提交 
2020-04-26 18:41
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
收藏
得分:0 
请详细解释说明,没个代码的意思,
2020-04-26 18:44
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
真的,这么着急吗?

请不要选我!!!
2020-04-26 21:30
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
收藏
得分:0 
回复 3楼 ZHRXJR
不着急,
是自己也在同步开发,练习写,这一段,追加查询显示的内容后,老是报错,所以,看看,有没有能指导的,
每天花两三个小时,在弄这个,这两天,技术没长进,

以上是我自己加了一些东西,然后运行时就报错,所以看看,有没有人能解惑,
2020-04-26 21:38
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:10 
程序代码:
MSFlexGrid1.Clear
MSFlexGrid1.Visible = True
With MSFlexGrid1   '这里是设置 MSFlexGrid1 的块,在块中不需要再用这个控件名,直接设置属性将可以了
    .Cols = 8   '这里是设置控件表格的列数
    .Rows = 1    '这里是设置控件表格的行数
   
    .TextMatrix(0, 0) = Space(3) & "序号"    '下面是设置表格头,也就是第一行的内容,第一个 0 是行数代码,第二个 0 是列数代码,Space(3) 是空格,为了使标题居中
    .TextMatrix(0, 1) = Space(6) & "设备编号"
    .TextMatrix(0, 2) = Space(6) & "抽屉台车号"
    .TextMatrix(0, 3) = Space(6) & "坏点位置"
    .TextMatrix(0, 4) = Space(6) & "坏点现象"
    .TextMatrix(0, 5) = Space(6) & "确认状态"
        .TextMatrix(0, 6) = Space(7) & "提交人员"


 .TextMatrix(0, 6) = Space(7) & "权限"    '列数相同第6列只能显示 权限,不能显示 提交人员,应该修改为    .TextMatrix(0, 7) = Space(7) & "权限" 
    
    .ColWidth(0) = 1000   '下面是设置各列的宽度
    .ColWidth(1) = 2000
    .ColWidth(2) = 2000
    .ColWidth(3) = 2000
    .ColWidth(4) = 2000
    .ColWidth(5) = 2000
   .ColWidth(6) = 2000
      .ColWidth(7) = 2000
     .ColWidth(8) = 2000   '总列数是8刘,看看现在一共有几列,这里肯定出错
     
End With

清楚了吗?

请不要选我!!!
2020-04-27 09:56
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
收藏
得分:0 
回复 5楼 ZHRXJR
这是我见过解释最详细的一份代码了,看了能够吸收消化,赞!
2020-04-27 18:33
快速回复:以下的代码看不懂,请教,
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019119 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved