主题：增加200行内容的代码该怎么写啊？

在窗口中写代码可以实现增加200行，但只写入3列的内容。
此主题相关图片如下：报警设备表.jpg


此主题相关图片如下：火灾自动报警系统查询编辑窗口.jpg


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

这是我的“字典”表内容。

此主题相关图片如下：字典.jpg

贴出具体代码说明

 要求：             
  1.当点击“增加回路”按钮后，自动弹出“提示信息”窗口；            
  2.选项内容是根据”字典“表里面的字段列”主机号“和”回路号“的内容，进行选择；            
  3.第一选项选择后，进入第二选项，当选择的内容与”报警设备“表已存内容重复时，提示”该回路已存在，请重新输入！”；            
  4.当点击“取消”按钮时，关闭该窗口；            
  5.当点击“确定”按钮时，自动往“报警设备”表中增加200行，同时在该表所增加这200行中，“主机号”列、回路号”列写      入200个所选定的内容，“一次码”列中按升序写入“001”至“200”；            
  6.保存增加的内容后，关闭该窗口。            

此主题相关图片如下：要求.jpg

烦请老师指教！

 

1、设计窗口，类型为模式窗口：http://www.foxtable.com/webhelp/topics/0697.htm    r("回路号") = e.form.controls("回路号组合框").text

谢谢老师了

老师我的代码哪里出错了，请指教！

Dim Filter   As   String
With e.Form.Controls("Comzjh")
      If .Value   IsNot   Nothing  Then
        Filter =   "主机号 = '" & .Value &   "'"
      End   If
End   With
With e.Form.Controls("Comhlh")
      If .Value   IsNot   Nothing   Then
          If Filter > ""   Then
       Filter = Filter &   " And "
          End   If
        Filter = Filter &   "回路号 = '" & .Value &   "'"
      End   If
End   With
Dim Filter   As   String
With e.Form.Controls("Comzjh")
      If .Value   IsNot   Nothing  Then
        Filter =   "主机号 = '" & .Value &   "'"
      End   If
End   With
With e.Form.Controls("Comhlh")
      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
 dr = DataTables("报警设备").Find("主机号" = "Comzjh" And "回路号" = "Comhlh")
 If dr  IsNot Nothing Then  '如果找到的话
    MessageBox.Show("该回路已经存在,请重新输入!", "提示")
End If

 

 

信息框不出现！

此主题相关图片如下：提示不显.jpg

Dim Filter   As   String
With e.Form.Controls("Comzjh")
      If .Value   IsNot   Nothing  Then
        Filter =   "主机号 = '" & .Value &   "'"
      End   If
End   With
With e.Form.Controls("Comhlh")
      If .Value   IsNot   Nothing   Then
          If Filter > ""   Then
            Filter = Filter &   " And "
          End   If
        Filter = Filter &   "回路号 = '" & .Value &   "'"
      End   If
End   With

Dim dr As DataRow
 dr = DataTables("报警设备").Find(Filter)
 If dr  IsNot Nothing Then  '如果找到的话
    MessageBox.Show("该回路已经存在,请重新输入!", "提示")
End If