VB 导出到txt的格式问题 15
我要将msflexgrid中的数据导出到txt中,我想到出成这样的样子:高度容量高度容量高度容量毫米升毫米升毫米升————————————————————————————...
我要将msflexgrid中的数据导出到txt中,我想到出成这样的样子:
高度 容量 高度 容量 高度 容量
毫米 升 毫米 升 毫米 升
——————————————————————————————————
2000 21000 2001 21220
可是程序运行后:
——————————————————————————————————
高度 容量 高度 容量 高度 容量
毫米 升 毫米 升 毫米 升
———————————————————————————————
2000
21000
2001
21220
怎么是错位的啊。
If MSFlexGrid2.Rows - 1 >= i Then 'i=0 时为第1行,标题行
Print #1, Tab(11); MSFlexGrid2.TextMatrix(i, 0), Tab(25); MSFlexGrid2.TextMatrix(i, 1), Tab(40); MSFlexGrid2.TextMatrix(i + 1, 0), Tab(48); MSFlexGrid2.TextMatrix(i + 1, 1)
Else
Print #1, Tab(11); "-----", Tab(25); "-----"
End If 展开
高度 容量 高度 容量 高度 容量
毫米 升 毫米 升 毫米 升
——————————————————————————————————
2000 21000 2001 21220
可是程序运行后:
——————————————————————————————————
高度 容量 高度 容量 高度 容量
毫米 升 毫米 升 毫米 升
———————————————————————————————
2000
21000
2001
21220
怎么是错位的啊。
If MSFlexGrid2.Rows - 1 >= i Then 'i=0 时为第1行,标题行
Print #1, Tab(11); MSFlexGrid2.TextMatrix(i, 0), Tab(25); MSFlexGrid2.TextMatrix(i, 1), Tab(40); MSFlexGrid2.TextMatrix(i + 1, 0), Tab(48); MSFlexGrid2.TextMatrix(i + 1, 1)
Else
Print #1, Tab(11); "-----", Tab(25); "-----"
End If 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询