Foxtable(狐表)用户栏目专家坐堂 → [求助]老师每次模糊搜索明细表后返回一定要加载全部数据再匹配主表吗?


  共有3315人关注过本帖树形打印复制链接

主题:[求助]老师每次模糊搜索明细表后返回一定要加载全部数据再匹配主表吗?

帅哥哟,离线,有人找我吗?
和谐
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:210 积分:1784 威望:0 精华:0 注册:2017/6/28 16:46:00
[求助]老师每次模糊搜索明细表后返回一定要加载全部数据再匹配主表吗?  发帖心情 Post By:2021/3/6 9:33:00 [只看该作者]

因为这样的话删除了模糊搜索后明细不像主表,主表是全部加载,但是明细是先全部加载再和主表关联,这样明细会闪出全部数据在关联,我想直接就动态关联主表不要每次删除搜索就重新加载全部数据,怎么做呢?老师?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105489 积分:536436 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/6 9:47:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
和谐
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:210 积分:1784 威望:0 精华:0 注册:2017/6/28 16:46:00
  发帖心情 Post By:2021/3/8 9:18:00 [只看该作者]

老师我就是这样明细先输入筛选条件,回车正常搜索明细,主表也会同步筛选,但是我删除了搜索名称回车,主表返回所有数据分页加载一页25条,这时明细会闪出全部数据在去对应主表,这样其实就是在临时表里加载了全部明细,这样还是不理想

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105489 积分:536436 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/8 9:24:00 [只看该作者]

参考上面帮助的用法,明细根据主表加载的25条记录的关联列或者编号去加载数据

 回到顶部
帅哥哟,离线,有人找我吗?
和谐
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:210 积分:1784 威望:0 精华:0 注册:2017/6/28 16:46:00
  发帖心情 Post By:2021/3/8 10:30:00 [只看该作者]

老师判断(主表加载好了)再执行关联明细的代码,怎么写呢?因为我加载主表后就直接执行明细关联主表的代码,但是明细始终是空白,因为主表好像没加载好明细无依据加载一样的
可能要判断主表完全加载好再执行代码,才是正确的


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105489 积分:536436 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/8 10:38:00 [只看该作者]

怎么加载主表的?在加载主表的代码后面加上加载明细的代码

 回到顶部
帅哥哟,离线,有人找我吗?
和谐
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:210 积分:1784 威望:0 精华:0 注册:2017/6/28 16:46:00
  发帖心情 Post By:2021/3/8 22:08:00 [只看该作者]

老师修改后明细不空白了,主表也正常,每次山删除掉搜索条件,明细就会先闪出全部数据再关联上数据,是怎么回事呢?老师?而我的明细也是筛选加载的方式了?还有什么地方不对吗?
If val = ""   Then

   With DataTables("智能AI数据_Table1")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load(False)
End With

Dim ids As String
 For Each dr As DataRow In DataTables("智能AI数据_Table1").DataRows
    ids = ids & ",'" & dr("ExcelServerRCID") & "'"
  Next
    ids= ids.Trim(",")


   With DataTables("智能AI数据_Table2")
    .LoadFilter = "ExcelServerRCID In (" & ids & ")" '一定要清除加载条件
    .Load(False)
End With
End If
Dim bh As String = DataTables("智能AI数据_Table2").GetComboListString("ExcelServerRCID",Tables("智能AI数据_Table2").filter )
Tables("智能AI数据_Table1").filter = "ExcelServerRCID in('" & bh.replace("|","','") & "')"




Tables("智能AI数据_Table1").AutoSizeCols() '自适应所有列的宽度
Tables("智能AI数据_Table1").Sort = "_Identify Desc"

[此贴子已经被作者于2021/3/8 22:08:54编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105489 积分:536436 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/8 22:09:00 [只看该作者]

11
[此贴子已经被作者于2021/3/8 22:09:50编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105489 积分:536436 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/8 22:12:00 [只看该作者]

贴出完整代码说明

 回到顶部
帅哥哟,离线,有人找我吗?
和谐
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:210 积分:1784 威望:0 精华:0 注册:2017/6/28 16:46:00
  发帖心情 Post By:2021/3/8 22:46:00 [只看该作者]

Dim Filter As String = "1=2"  '直接为变量赋值,为什么值是1=2呢,就是要这个值不成立,因为1不等于2,相当于"否"的意思
Dim val As String = e.Form.Controls("textbox2").Text '定义一个变量是输入在控件textbox1的值


If val <> ""   Then    '但textbox1控件的值大于空白时,执行下面代码
   
 For Each c As DataCol In DataTables("智能AI数据_Table2").DataCols  '遍历语句,遍历地区表的所有列
    DataTables("智能AI数据_Table2").LoadPage = 0  '重点:直接加载地区表的第一页,这样下面的模糊筛选才可以从第一页开始筛选所有数据
           Filter = Filter & " Or Convert(varchar(100), " & c.name & ") Like '%" & val & "%'  "   '这句Filter & = "xxx"的意思是Filter = Filter & "xxx"  的简写,这句就是:筛选条件里的条件,这句话的含义就是把每一列列转换成字符串再用Like语句'%" & val & "%'意思是:筛选出所有列中包含"控件textbox1的值"
    Next










End If 



If filter IsNot Nothing  Then '当Filter不等于空白时
    DataTables("智能AI数据_Table2").LoadPage = 0    '加载第一页
    DataTables("智能AI数据_Table2").LoadOver = "_Identify"   '以日期列
    DataTables("智能AI数据_Table2").LoadReverse = True  '启用日期列倒序加载
    DataTables("智能AI数据_Table2").LoadFilter = filter '在筛选条件里的条件等于上面的:筛选条件里的条件
    DataTables("智能AI数据_Table2").Load(False) '重新加载按照:筛选条件里的条件来加载

End If
Tables("智能AI数据_Table2").AutoSizeCols() '自适应所有列的宽度
Tables("智能AI数据_Table2").Sort = "_Identify Desc"






  '*********   TextBox控件应用   **********
'Dim lbl As WinForm.TextBox   '定义控件变量
    'lbl = e.Form.Controls("TextBox2") '变量等于那个控件名称
'If  DataTables("地区表").TotalPages =  0 Then '当地区表的总页数等于0时
    'lbl.TextAlign = HorizontalAlignment.Center
    'lbl.Font = New Font("楷体", 15, FontStyle.Bold) '设置字体
    'lbl.text = "搜索"   '则显示搜索文本
'Else ' 否则
    'lbl.TextAlign = HorizontalAlignment.Center
    'lbl.Font = New Font("微软雅黑", 15, FontStyle.Bold) '设置字体
    'lbl.text =  "第" & DataTables("地区表").LoadPage + 1 & "页/总" & DataTables("地区表").TotalPages & "页" '总页数不等于0时,控件.要显示的内容=第几页/总几页
'End If




'*********   上面的TextBox控件应用改成Label控件,因为上面要设置禁止选择还有禁止编辑没有这个控件方便   **********
Dim lbl As WinForm.Label   '定义控件变量
    lbl = e.Form.Controls("Label2") '变量等于那个控件名称
If  DataTables("智能AI数据_Table2").TotalPages =  0 Then '当地区表的总页数等于0时
    lbl.TextAlign = ContentAlignment.MiddleCenter '字体垂直与水平对齐
    lbl.Font = New Font("幼圆", 14, FontStyle.Bold) '设置字体
    lbl.text = "没有您要的资料"   '则显示搜索文本
Else ' 否则
    lbl.TextAlign = ContentAlignment.MiddleCenter '字体垂直与水平对齐
    lbl.Font = New Font("微软雅黑", 12, FontStyle.Bold) '设置字体
    lbl.text =  "第" & DataTables("智能AI数据_Table2").LoadPage + 1 & "页/总" & DataTables("智能AI数据_Table2").TotalPages + 2 & "页" '总页数不等于0时,控件.要显示的内容=第几页/总几页
End If '判断结束语句


If val = ""   Then



Dim ids As String
 For Each dr As DataRow In DataTables("智能AI数据_Table1").DataRows
    ids = ids & ",'" & dr("ExcelServerRCID") & "'"
  Next
    ids= ids.Trim(",")


   With DataTables("智能AI数据_Table2")
    .LoadFilter = "ExcelServerRCID In (" & ids & ")" '一定要清除加载条件
    .Load(False)
End With


       With DataTables("智能AI数据_Table1")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load(False)
End With 




End If




Dim bh As String = DataTables("智能AI数据_Table2").GetComboListString("ExcelServerRCID",Tables("智能AI数据_Table2").filter )
Tables("智能AI数据_Table1").filter = "ExcelServerRCID in('" & bh.replace("|","','") & "')"




Tables("智能AI数据_Table1").AutoSizeCols() '自适应所有列的宽度
Tables("智能AI数据_Table1").Sort = "_Identify Desc"

 回到顶部
总数 27 1 2 3 下一页