以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  增加200行内容的代码该怎么写啊？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141105)
--  作者：jingledyang
--  发布时间：2019/9/20 22:15:00
--  增加200行内容的代码该怎么写啊？
在窗口中写代码可以实现增加200行，但只写入3列的内容。
图片点击可在新窗口打开查看此主题相关图片如下：报警设备表.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：火灾自动报警系统查询编辑窗口.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：增加回路按钮代码怎么写.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/9/21 17:33:00编辑过]
--  作者：jingledyang
--  发布时间：2019/9/20 22:16:00
--  

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


图片点击可在新窗口打开查看此主题相关图片如下：字典.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2019/9/20 22:19:00
--  
贴出具体代码说明
--  作者：jingledyang
--  发布时间：2019/9/21 19:44:00
--  
 要求：             
  1.当点击“增加回路”按钮后，自动弹出“提示信息”窗口；            
  2.选项内容是根据”字典“表里面的字段列”主机号“和”回路号“的内容，进行选择；            
  3.第一选项选择后，进入第二选项，当选择的内容与”报警设备“表已存内容重复时，提示”该回路已存在，请重新输入！”；            
  4.当点击“取消”按钮时，关闭该窗口；            
  5.当点击“确定”按钮时，自动往“报警设备”表中增加200行，同时在该表所增加这200行中，“主机号”列、回路号”列写      入200个所选定的内容，“一次码”列中按升序写入“001”至“200”；            
  6.保存增加的内容后，关闭该窗口。            
--  作者：jingledyang
--  发布时间：2019/9/22 20:05:00
--  


图片点击可在新窗口打开查看此主题相关图片如下：要求.jpg
图片点击可在新窗口打开查看

烦请老师指教！


 

[此贴子已经被作者于2019/9/22 20:06:50编辑过]
--  作者：有点蓝
--  发布时间：2019/9/22 20:08:00
--  
1、设计窗口，类型为模式窗口：http://www.foxtable.com/webhelp/topics/0697.htm
2、添加组合框控件，设置列表项目：http://www.foxtable.com/webhelp/topics/0921.htm
3、组合框控件textchanged事件，根据录入的内容到表格里查询，查询条件设置参考：http://www.foxtable.com/webhelp/topics/1058.htm，然后使用find函数查询：http://www.foxtable.com/webhelp/topics/0396.htm
5、增加200行，并赋值：
dim r as row
for i as integer = 1 to 200
    r = tables("报警设备").addnew
    r("主机号") = e.form.controls("主机号组合框").text
    r("回路号") = e.form.controls("回路号组合框").text
    r("一次码") = format(i,"000")
next
--  作者：jingledyang
--  发布时间：2019/9/22 20:30:00
--  

谢谢老师了
--  作者：jingledyang
--  发布时间：2019/9/24 21:31:00
--  

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

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

 

 

信息框不出现！

[此贴子已经被作者于2019/9/24 21:38:43编辑过]
--  作者：jingledyang
--  发布时间：2019/9/24 21:52:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：提示不显.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2019/9/24 22:05:00
--  
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