我还是不太清楚。我现在把程序段写下来: 大伙看看是否有误: option explicit Private Type teacherrec name As String wage As Single level As String End Type Dim varteacherrec As teacherrec Private Sub Form_Load() Dim i As Integer ChDrive App.Path ChDir App.Path FlexGrid.Cols = 4 For i = 0 To 3 FlexGrid.ColWidth(i) = 1200 FlexGrid.ColAlignment(i) = 2 Next i flexgird.colwidth(0)=800 open "teacher.wys" for binary as #1 end sub
大伙看看是否有误:
option explicit
Private Type teacherrec
name As String
wage As Single
level As String
End Type
Dim varteacherrec As teacherrec
Private Sub Form_Load()
Dim i As Integer
ChDrive App.Path
ChDir App.Path
FlexGrid.Cols = 4
For i = 0 To 3
FlexGrid.ColWidth(i) = 1200
FlexGrid.ColAlignment(i) = 2
Next i
flexgird.colwidth(0)=800
open "teacher.wys" for binary as #1
end sub