Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]客户端窗口打开慢


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

主题：[求助]客户端窗口打开慢
帅哥哟，离线，有人找我吗？
bzqlyj
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：271 积分：2246 威望：0 精华：0 注册：2020/9/28 14:53:00 		[求助]客户端窗口打开慢  发帖心情 Post By：2023/4/10 10:42:00 [显示全部帖子]

通过客户查询到表邦定到窗口1中，通过窗口1中的表，按条件筛选出对应的数据，通过按钮新增数据窗口，新增数据窗口打开慢，如何优化

 回到顶部
帅哥哟，离线，有人找我吗？
bzqlyj
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：271 积分：2246 威望：0 精华：0 注册：2020/9/28 14:53:00 		回复：（有点蓝）窗口打开的时候执行了什么代码？  发帖心情 Post By：2023/4/10 11:12:00 [显示全部帖子]

接收了一个表，再重这个表生成列表项目

 回到顶部
帅哥哟，离线，有人找我吗？
bzqlyj
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：271 积分：2246 威望：0 精华：0 注册：2020/9/28 14:53:00 		回复：（有点蓝）去掉这个代码慢不慢？  发帖心情 Post By：2023/4/10 11:27:00 [显示全部帖子]

有两个窗口，一个是修改，另一个新增，修改窗口没问题 

 回到顶部
帅哥哟，离线，有人找我吗？
bzqlyj
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：271 积分：2246 威望：0 精华：0 注册：2020/9/28 14:53:00 		回复：（有点蓝）窗口打开时执行的代码都注释掉，还慢...  发帖心情 Post By：2023/4/10 11:31:00 [显示全部帖子]

慢

 回到顶部
帅哥哟，离线，有人找我吗？
bzqlyj
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：271 积分：2246 威望：0 精华：0 注册：2020/9/28 14:53:00 		回复：（有点蓝）窗口有绑定表格？加载很多数据？  发帖心情 Post By：2023/4/10 11:38:00 [显示全部帖子]

4000

 回到顶部
帅哥哟，离线，有人找我吗？
bzqlyj
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：271 积分：2246 威望：0 精华：0 注册：2020/9/28 14:53:00 		回复：（有点蓝）窗口有绑定表格？加载很多数据？  发帖心情 Post By：2023/4/10 11:43:00 [显示全部帖子]

是这段代码有问题
Dim hc1 As New HttpClient("http://107.1618.20:12636/que1.htm")

hc1.FormData.Add("name", _yh)
hc1.FormData.Add("pswrd", _yhk)

Dim dt1 As DataTable = hc1.GetDataTable()
If hc1.rCookies.ContainsKey("error") Then
    MessageBox.show(hc1.rCookies("error"), "错误" , MessageBoxButtons.OK, MessageBoxIcon.Warning)
    Return 
ElseIf dt1 IsNot Nothing Then
    _glwgb = dt1
Else
    MessageBox.Show("接收DataTable失败,原因未知!", "错误" , MessageBoxButtons.OK , MessageBoxIcon.Warning)
End If
Dim xzpyxy As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
Dim xzpyxy1 As String = xzpyxy.SelectedItem
xzpyxy.ClearCommand.Visible = False
xzpyxy.StretchCommand.Visible = False
xzpyxy.SaveAsCommand.Visible = False
 回到顶部
帅哥哟，离线，有人找我吗？
bzqlyj
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：271 积分：2246 威望：0 精华：0 注册：2020/9/28 14:53:00 		回复：（有点蓝）减少显示的数据  发帖心情 Post By：2023/4/10 11:55:00 [显示全部帖子]

没有显示数据，是接收到的表存在全局变量表内的

 回到顶部
帅哥哟，离线，有人找我吗？
bzqlyj
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：271 积分：2246 威望：0 精华：0 注册：2020/9/28 14:53:00 		回复：（有点蓝）提高网络带宽，减少加载的数据量。  发帖心情 Post By：2023/4/10 12:45:00 [显示全部帖子]

是不是接收的表必须帮定到窗口的表中，不是直接保留在全局变量表中

 回到顶部
帅哥哟，离线，有人找我吗？
bzqlyj
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：271 积分：2246 威望：0 精华：0 注册：2020/9/28 14:53:00 		回复：（有点蓝）提高网络带宽，减少加载的数据量。  发帖心情 Post By：2023/4/10 12:48:00 [显示全部帖子]

Dim hc1 As New HttpClient("http://107.1618.20:12636/que1.htm")

hc1.FormData.Add("name", _yh)
hc1.FormData.Add("pswrd", _yhk)

Dim dt1 As DataTable = hc1.GetDataTable()
If hc1.rCookies.ContainsKey("error") Then
    MessageBox.show(hc1.rCookies("error"), "错误" , MessageBoxButtons.OK, MessageBoxIcon.Warning)
    Return 
ElseIf dt1 IsNot Nothing Then
    _glwgb = dt1是不是这有问题
Else
    MessageBox.Show("接收DataTable失败,原因未知!", "错误" , MessageBoxButtons.OK , MessageBoxIcon.Warning)
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06400 秒, 5 次数据查询