专家坐堂-窗口放置了一个sqlquery的table，怎么让这个临时表不显示初始的10行？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口放置了一个sqlquery的table，怎么让这个临时表不显示初始的10行？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136598)

--  作者：ycwk
--  发布时间：2019/6/17 10:02:00
--  窗口放置了一个sqlquery的table，怎么让这个临时表不显示初始的10行？
生成临时表的代码如下:
但是在刚开始没有值的时候，这个table也会显示10个空行，由于对该表写了全局表事件，导致鼠标点击到该表上面的时候就会弹出各种提示，怎么破？

Dim dtb As New DataTableBuilder("Result_床位") \'生成临时表 Result_床位
dtb.AddDef("BED_NO", Gettype(String), 32)
dtb.AddDef("NURSE_CELL_CODE", Gettype(String), 32)
dtb.AddDef("FEE_GRADE_CODE", Gettype(String), 32)
dtb.AddDef("BED_WEAVE", Gettype(String), 32)
dtb.AddDef("BED_STATE", Gettype(String), 32)
dtb.AddDef("WARD_NO", Gettype(String), 32)
dtb.AddDef("SORT_ID", Gettype(String), 32)
dtb.AddDef("OPER_CODE", Gettype(String), 32)
dtb.AddDef("OPER_DATE", Gettype(String), 32)
dtb.AddDef("GRADENAME", Gettype(String), 32)
dtb.AddDef("SUMFEE", Gettype(String), 32)
dtb.Build()

\'For Each v As String In DataTables("表A").GetValues("姓名")

For i As Integer = 0 To jo.Count - 1
Dim dr1 As DataRow = DataTables("Result_床位").AddNew()

dr1("BED_NO") = jo(i)("BED_NO").ToString
dr1("NURSE_CELL_CODE") = jo(i)("NURSE_CELL_CODE").ToString
dr1("FEE_GRADE_CODE") = jo(i)("FEE_GRADE_CODE").ToString
dr1("BED_WEAVE") = jo(i)("BED_WEAVE").ToString
dr1("BED_STATE") = jo(i)("BED_STATE").ToString
dr1("WARD_NO") = jo(i)("WARD_NO").ToString
dr1("SORT_ID") = jo(i)("SORT_ID").ToString
dr1("OPER_CODE") = jo(i)("OPER_CODE").ToString
dr1("OPER_DATE") = jo(i)("OPER_DATE").ToString
dr1("GRADENAME") = jo(i)("GRADENAME").ToString
dr1("SUMFEE") = jo(i)("SUMFEE").ToString

Next \'循环取json的记录

\'MainTable = Tables("Result_床位")

Tables("win_业务系统权限调整窗口_table_调整床位").DataSource = DataTables("Result_床位")
DataTables("Result_床位").MultiRowHeader=False \'关闭多层表头
DataTables("Result_床位").BuildHeader() \'关闭多层表头

--  作者：有点甜
--  发布时间：2019/6/17 11:20:00
--

删除即可，如

http://www.foxtable.com/webhelp/scr/0394.htm

--  作者：ycwk
--  发布时间：2019/6/17 11:44:00
--

第一，这是个空表啊，第二，放在表的afterload事件中，不起效啊

dataTables("win_业务系统权限调整窗口_table_调整床位").DeleteFor("[_identify]<10")

此主题相关图片如下：1.png

--  作者：有点甜
--  发布时间：2019/6/17 11:49:00
--

比如

Tables("win_业务系统权限调整窗口_table_调整床位").DataTable.deletefor("")

--  作者：zto001
--  发布时间：2019/6/17 12:27:00
--

tables("临时表").filter = false
For i as integer = 1 to tables("临时表").cols.count - 1
  tables("临时表").cols(i).visible= false
Next

管你多少行管你多少了全清掉

--  作者：ycwk
--  发布时间：2019/6/18 9:59:00
--

以下是引用有点甜在2019/6/17 11:49:00的发言：

比如

Tables("win_业务系统权限调整窗口_table_调整床位").DataTable.deletefor("")

用了这个语句，鼠标点到空白处，还是会报这个错误，上面的代码放在窗口的afterload事件中。

此主题相关图片如下：1.png

--  作者：ycwk
--  发布时间：2019/6/18 10:00:00
--
全局表事件 currentchanged事件代码如下：
If CurrentTable.Name="win_业务系统权限调整窗口_table_调整床位" Then

‘ If CurrentTable.Rows.Count>0 Then
Forms("win_业务系统权限调整窗口").Controls("tb_床位号_编辑").value= CurrentTable.Current("BED_NO")
Forms("win_业务系统权限调整窗口").Controls("tb_病房号_编辑").value= CurrentTable.Current("WARD_NO")
Forms("win_业务系统权限调整窗口").Controls("tb_床位等级_编辑").value= CurrentTable.Current("FEE_GRADE_CODE")

Forms("win_业务系统权限调整窗口").Controls("cbb_床位状态_编辑").value=CurrentTable.Current("BED_STATE")

Forms("win_业务系统权限调整窗口").Controls("cbb_床位编制情况_编辑").value= CurrentTable.Current("BED_WEAVE")
Forms("win_业务系统权限调整窗口").Controls("tb_床位顺序号_编辑").value= CurrentTable.Current("SORT_ID")
Forms("win_业务系统权限调整窗口").Controls("tb_操作人员代码_编辑").value= CurrentTable.Current("OPER_CODE")
’ End If
End If

--  作者：有点甜
--  发布时间：2019/6/18 10:57:00
--

修改currentchanged事件代码

If e.table.current IsNot Nothing Andalso CurrentTable.Name="win_业务系统权限调整窗口_table_调整床位" Then