以文本方式查看主题

-  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