主题：[求助]同时修改多行内容的按钮代码怎么写

增加设备要求如下：
1.是编辑表格内容，不是追加内容；
2.“主机号”和“回路号”只是用来查找多少主机号和回路号，然后进行编辑；
3.在数据表中，除“主机号”、“回路号”、“开始编号”和“结束编号”列内容不可修改，其余均可修改和增加；
4.“设备”和“开始编号”选项为必选项；
5.可以增加一个设备和多个设备，但是不能在于200个设备；
6.“开始编号”和“结束编号”为“报警设备”表的“一次码”列，用来设定要编辑“报警设备”表的“一次码”的行数范围；
7.选定选项内容及开始编号和结束编号后，往数据表中每列写入相同的内容。

 

我弄的代码不能实现上面的要求：

Dim r As Row
For i As Integer = 1 To 200
    r = Tables("报警设备").addnew
    r("区域") = e.form.controls("Comqy").text
    r("局域_栋号") = e.form.controls("Comdh").text
    r("局域_单元") = e.form.controls("Comdy").text
    r("范围_层数") = e.form.controls("Comcs").text

     r("局域_裙楼") = e.form.controls("Ck1").Checked
    r("范围_防火分区") = e.form.controls("Comfq").text
    r("设备类型") = e.form.controls("sblx").text
    r("控制类型") = e.form.controls("czlx").text

Next

此主题相关图片如下：设备类型.jpg


此主题相关图片如下：设备类型2.jpg


此主题相关图片如下：增加设备按钮代码怎么写.jpg

 

另外

  1.我的设备类型选项与表中的下拉表不相同，有什么办法吗？

  2.窗口下拉列表，只要是中文开头的和数字开头的，均为乱序排列，求解决？

此主题相关图片如下：列表乱序.jpg