增加设备要求如下：
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.窗口下拉列表，只要是中文开头的和数字开头的，均为乱序排列，求解决？

老师麻烦帮我查看一程序代码，问题怎么解决？

Dim Filter   As   String
With e.Form.Controls("ComZJ")
      If .Value   IsNot   Nothing  Then
        Filter =   "主机号 = \'" & .Value &   "\'"
      End   If
End   With
With e.Form.Controls("ComHL")
      If .Value   IsNot   Nothing   Then
          If Filter > ""   Then
            Filter = Filter &   " And "
          End   If
        Filter = Filter &   "回路号 = \'" & .Value &   "\'"
      End   If
End   With
Tables("报警设备").Filter = Filter

Dim dr As DataRow
Dim r As Row
Dim cnt As Integer = val(e.form.controls("StID").text)
Dim cnt2 As Integer = val(e.form.controls("EndID").text)
dr = DataTables("报警设备").Find(Filter)
 

 dr = DataTables("报警设备").Find("一次码" = ("StID").text)
 If dr  IsNot Nothing Then  \'如果找到的话
   For i As Integer = cnt To cnt2
    dr("区域") = e.form.controls("Comqy").text
    dr("局域_栋号") = e.form.controls("Comdh").text
    dr("局域_单元") = e.form.controls("Comdy").text
   dr("范围_层数") = e.form.controls("Comcs").text
    dr("局域_裙楼") = e.form.controls("Ck1").Checked
    dr("局域_地下室") = e.form.controls("Ck2").Checked
    dr("局域_商铺") = e.form.controls("Ck3").Checked
    dr("范围_防火分区") = e.form.controls("Comfq").text
    dr("设备类型") = e.form.controls("sblx").text
    dr("控制类型") = e.form.controls("czlx").text
   Next
  Else
     MessageBox.Show("该回路不存在,请先增加回路!", "提示")
End If

我在窗口全局事件的Enter中的代码如下：

Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
     Case  "报警设备.主机号", "报警设备.回路号"
ctl.ReadOnly =  BooleanEnum.True  \'禁止编辑
End  Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:火灾自动报警系统.table

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

注明：在“增加回路”中已建立了有主机号、回路号和一次码的回路，每台主机的每个回路只有200个设备编号，也就是从001--200，在增加设备时只对其他列进行编辑！