专家坐堂-增加200行内容的代码该怎么写啊？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  增加200行内容的代码该怎么写啊？  (http://www.foxtable.com/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
4、6、关闭窗口参考：http://www.foxtable.com/webhelp/topics/0710.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