- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]合成怎么写 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120747)
-- 发布时间：2018/6/22 18:30:00
-- [求助]合成怎么写
Dim fdr As DataRow = e.DataTable.find(dr("tblcolid") & " = " & str & " And dr("tblcolid") <> " & str & " And [_Identify] <> " & e.DataRow("_Identify"))
老师，
上述怎么写才对？
-- 发布时间：2018/6/22 20:17:00
--
已解决(dr("tblcolid") & " = \'" & str & "\' And " & dr("tblcolid") & " <> \'" & str & "\' And [_Identify] <> " & e.DataRow("_Identify"))
-- 发布时间：2018/6/22 21:16:00
--
老师，
窗口 还原在最大化 为何任务栏 会被隐藏了，最大化在最小化，就会出现任务栏，不明白。
e.Form.stopRedraw
If vars("bswidth")=0 And vars("bsheight")=0 Then
basemainform.left = (SysInfo.WorkingAreaWidth - basemainform.width) / 2
basemainform.top = (SysInfo.WorkingAreaheight - basemainform.height) / 2
Else
basemainform.left = (SysInfo.WorkingAreaWidth - vars("bswidth")) / 2
basemainform.top = (SysInfo.WorkingAreaheight - vars("bsheight")) / 2
End If
Select Case basemainform.windowstate\'0 还原 1 最小化 2 最大化
Case 0
If vars("bswidth")=0 And vars("bsheight")=0 Then
basemainform.left = (SysInfo.WorkingAreaWidth - basemainform.width) / 2
basemainform.top = (SysInfo.WorkingAreaheight - basemainform.height) / 2
vars("bswidth")=basemainform.width\'第一次还原使用,保证窗口居中
vars("bsheight")=basemainform.height\'第一次还原使用,保证窗口居中
End If
End Select
e.Form.ResumeRedraw
-- 发布时间：2018/6/22 21:21:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:lp_20180622211930.rar |
-- 发布时间：2018/6/22 21:34:00
--
请上传具体实例测试
-- 发布时间：2018/6/23 6:45:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗口还原.table |
-- 发布时间：2018/6/23 6:48:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:lp_20180623064604.rar |
-- 发布时间：2018/6/23 10:28:00
--
全局代码
Public Sub Form2_SizeChanged(sender As Object, e As EventArgs)
If vars("bswidth")=0 And vars("bsheight")=0 Then
sender.left = (SysInfo.WorkingAreaWidth - sender.width) / 2
sender.top = (SysInfo.WorkingAreaheight - sender.height) / 2
Else
sender.left = (SysInfo.WorkingAreaWidth - vars("bswidth")) / 2
sender.top = (SysInfo.WorkingAreaheight - vars("bsheight")) / 2
End If
Select Case sender.windowstate\'0 还原 1 最小化 2 最大化
Case 0
If vars("bswidth")=0 And vars("bsheight")=0 Then
sender.left = (SysInfo.WorkingAreaWidth - sender.width) / 2
sender.top = (SysInfo.WorkingAreaheight - sender.height) / 2
vars("bswidth")=sender.width\'第一次还原使用,保证窗口居中
vars("bsheight")=sender.height\'第一次还原使用,保证窗口居中
End If
End Select
End Sub
afteropenproject事件
AddHandler basemainform.SizeChanged, AddressOf Form2_SizeChanged
然后去掉窗口的SizeChanged事件代码