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

生成临时表的代码如下:

但是在刚开始没有值的时候，这个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() '关闭多层表头

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

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

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

比如

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

tables("临时表").filter = false

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

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

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

比如

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

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

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

全局表事件 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

修改currentchanged事件代码

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

主题：窗口放置了一个sqlquery的table，怎么让这个临时表不显示初始的10行？