不能向没有列的datagridview控件添加行_VBA学习笔记62: 窗体与控件综合实例

学习资源：《Excel VBA从入门到进阶》第62集 by兰色幻想

---

窗体的内容已经学习完了，这节试着用前几节窗体的内容来把入库单弄成窗体吧。

一、列举想实现的功能：

1. 出库日期选择——添加日期控件：DTPicker
2. 出库单号码——点击微调项可以递增或递减文本框的号码，和当号码不输入时，不能离开该文本框。
3. 在商品代码里按回车或点击右侧的按钮可以打开价格表窗口。
4. 价格表需要在窗体加载时即完成treeview控件中的单价信息导入，同时也要完成listview控件的标题行生成。
5. 用鼠标单击或者按回车键后，可以把商品名称、型号以及单价输入到相应的文本框里，然后关闭该窗口回到输入主界面，并且焦点转向销售数量后面文本框里。
6. 当输入数量时，自动计算销售金额。输入完成按回车，可以自动把本条信息导入到下面的listview中，并且焦点转到商品代码框中。
7. 双击listview可以清空所有记录；右键单击可以提示是否删除选中的记录，如果选是则删除选中的记录。
8. 点击输入，可以把listview中的数据添加到出库表中。出库单号码自动+1，焦点转到商品代码框中。

二、代码详解：

1. 出库日期选择——添加日期控件：DTPicker

不多说，回顾点击以下链接，直接添加日期控件：DTPicker即可。

夏西蓝：VBA学习笔记61: 日期控件与进度条

运行演示

2. 出库单号码——点击微调项可以递增或递减文本框的号码，和当号码为输入时不能离开该文本框。

微调按钮的上下幅度通过Smallchange属性设置，然后数值显示用的是SpinDown事件和SpinUp事件。（复习链接↓）

夏西蓝：VBA学习笔记58:选项按钮、复选框、框架、滚动条、微调、图像与多页

不允许离开，则是Exit事件，判断语句，如果号码的文本框值为空，就禁止离开。

① SpinDown事件：点击向下的按钮出库单号码在原来的基础上+1。

Private Sub SpinButton1_SpinDown() 
   TextBox2.Text = Format(Val(TextBox2) + 1, "000") '点击向下的按钮出库单号码在原来的基础上加1
End Sub

② SpinUp事件：点击向上的按钮出库单号码在原来的基础上-1。

Private Sub SpinButton1_SpinUp()
   TextBox2.Text = Format(Val(TextBox2) - 1, "000") '点击向上的按钮出库单号码在原来的基础上减1
End Sub

③ Exit事件：出库单号码强制输入，否则不允许离开。

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) '出库单号码强制输入，否则不允许离开
    If TextBox2.Text = "" Th