- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于窗体闪屏问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147321)
-- 发布时间：2020/3/14 1:41:00
-- 关于窗体闪屏问题
窗体统计表统计的时候经常频繁闪屏怎么回事？怎么处理？
-- 发布时间：2020/3/14 2:06:00
--
关电脑了，明早看??
-- 发布时间：2020/3/14 7:25:00
--
看了一下，这个应是您的代码问题，这不是闪，可能进行了重复筛选！
.lxe格式的视频文件，下次记得一并打包播放器，没有这个东西是打不开的！
-- 发布时间：2020/3/14 9:32:00
--
你看看随便用一个视频播放器都可以的mp4格式
[此贴子已经被作者于2020/3/14 9:32:44编辑过]
-- 发布时间：2020/3/14 9:44:00
--
查询按钮有多次筛选，或者绑定数据，贴出完整代码
-- 发布时间：2020/3/14 10:42:00
--
Dim Filter As String
Dim t As Table
Dim StartDate As Date =qssj.Value
Dim EndDate As Date=zzsj.Value
If e.Form.Controls("mxRadioButton").Checked
If qssj.Value IsNot Nothing AndAlso zzsj.Value IsNot Nothing Then
Filter = Filter & "转账日期>= #" & StartDate & "# And 转账日期 <= #" & EndDate & "# "
End If
If zzmc.value<>"所有账户" AndAlso zzmc.value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
If zzlx.value = "所有转账" OrElse zzlx.value Is Nothing
Filter = Filter & " (转出账户=\'" & zzmc.value & "\' or 转入账户=\'" & zzmc.value & "\')"
ElseIf zzlx.value = "转出账户"
Filter = Filter & " 转出账户=\'" & zzmc.value & "\'"
Else
Filter = Filter & " 转入账户=\'" & zzmc.value & "\'"
End If
End If
Tables("转账查询窗体_zzTable").GrandTotal = False
Tables("转账查询窗体_zzTable").DataSource = DataTables("转账交易流水")
Tables("转账查询窗体_zzTable").SetColVisibleWidth("转账日期|100|转出账户|200|转入账户|200|转账金额|100|转出后账户余额|100|转入后账户余额|100|转账操作员|100|转账备注|260")
Tables("转账查询窗体_zzTable").Filter = Filter
t = Tables("转账查询窗体_zzTable")
t.Cols("转账金额").GrandTotal = True \'指定要合计的列
t.GrandTotal = True \'显示合计模式
t.Grid.Name = t.Name
AddHandler t.grid.Paint, AddressOf Grid_Paint
Tables("转账查询窗体_zzTable").GrandTotal = True
Else
If qssj.Value IsNot Nothing AndAlso zzsj.Value IsNot Nothing Then
Filter = Filter & "转账日期>= #" & StartDate & "# And 转账日期 <= #" & EndDate & "# "
End If
If zzmc.value<>"所有账户" AndAlso zzmc.value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
If zzlx.value = "所有转账" OrElse zzlx.value Is Nothing
Filter = Filter & " (转出账户=\'" & zzmc.value & "\' or 转入账户=\'" & zzmc.value & "\')"
ElseIf zzlx.value = "转出账户"
Filter = Filter & " 转出账户=\'" & zzmc.value & "\'"
Else
Filter = Filter & " 转入账户=\'" & zzmc.value & "\'"
End If
End If
\'Tables("转账查询窗体_zzTable").DataSource = DataTables("转账交易流水")
\'Tables("转账查询窗体_zzTable").SetColVisibleWidth("转账日期|100|转出账户|200|转入账户|200|转账金额|100|转出后账户余额|100|转入后账户余额|100|转账操作员|100|转账备注|260")
\'Tables("转账查询窗体_zzTable").Filter = Filter
SystemReady = False
Dim g As New GroupTableBuilder("转账交易统计表", DataTables("转账交易流水"))
g.Groups.AddDef("转账日期",DateGroupEnum.None,"转账日期")
g.Groups.AddDef("转出账户","转出账户")
g.Groups.AddDef("转入账户","转入账户")
g.Totals.AddDef("转账金额","转账金额")
g.Build()
MainTable = Tables("转账交易统计表")
Tables("转账查询窗体_zzTable").DataSource = DataTables("转账交易统计表")
Tables("转账查询窗体_zzTable").Filter = Filter
If zzlx.Value="转出账户" Then
Tables("转账查询窗体_zzTable").SetColVisibleWidth("转出账户|300|转账金额|300")
Else
Tables("转账查询窗体_zzTable").SetColVisibleWidth("转入账户|300|转账金额|300")
End If
For Each c As Col In Tables("转账查询窗体_zzTable").Cols
c.TextAlign = TextAlignEnum.Center
Next
SystemReady = True
End If
-- 发布时间：2020/3/14 11:01:00
--
http://www.foxtable.com/webhelp/topics/0453.htm
-- 发布时间：2020/3/14 11:28:00
--
昨天我都加上StopRedraw试了还是闪屏
[此贴子已经被作者于2020/3/14 11:28:50编辑过]
-- 发布时间：2020/3/14 11:37:00
--
那就没有办法了