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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 增加200行内容的代码该怎么写啊？

共有2336人关注过本帖树形打印复制链接主题：增加200行内容的代码该怎么写啊？

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/20 22:19:00 [显示全部帖子]

贴出具体代码说明

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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")

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

下一主题 >> << 上一主题

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