同志们啊，今天是春节假期的最后一天了，想想明天就要上班了，没得什么时间来弄弄了，就想着把窗体界面做得再实用些，所以修修补补了一上午，又弄出几个功能按钮出来，以备将来不时之需。
其实今天的成果，也添加了一个新增按钮的功能，大致就是在窗体文本框中录入数据，然后数据传至数据表中保存。发现就是这么一个小功能的完成，也是花费了不少的时间，想想程序员的话，每天绞尽脑汁的开发一个个小程序，着实是辛苦的，不光码字码代码辛苦，脑力也是相当的费的。
新增按钮功能代码：
Private Sub CommandButton1_Click()
If TextBox1 <> "" _
And TextBox2 <> "" _
And TextBox3 <> "" _
And TextBox4 <> "" _
And TextBox5 <> "" _
And TextBox6 <> "" _
And TextBox7 <> "" _
And TextBox8 <> "" _
And TextBox9 <> "" _
Then
Set itm = ListView1.ListItems.Add()
For j = 1 To 8
itm.Text = TextBox1.Value
itm.SubItems(j) = Me.Controls("textbox" & j + 1).Value
Me.Controls("textbox" & j + 1).Value = ""
Next j
Else
MsgBox "牛年大吉大利，牛气冲天", vbOKCancel
End If
Dim arr(), z&, y&, x&
z = ListView1.ListItems.Count
ReDim arr(1 To z, 1 To 9)
For x = 1 To z
arr(x, 1) = ListView1.ListItems(x).Text
For y = 1 To 8
arr(x, y + 1) = ListView1.ListItems(x).SubItems(y)
Next y
Next x
Sheets("数据").Range("a1").End(xlDown).Offset(1, 0).Resize(z, 9) = arr
Me.ListView1.ListItems.Clear
TextBox1.SetFocus
End Sub