以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]合成怎么写 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120747) |
||||
-- 作者:blsu33 -- 发布时间: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")) 老师, 上述怎么写才对?
|
||||
-- 作者:blsu33 -- 发布时间:2018/6/22 20:17:00 -- 已解决(dr("tblcolid") & " = \'" & str & "\' And " & dr("tblcolid") & " <> \'" & str & "\' And [_Identify] <> " & e.DataRow("_Identify")) |
||||
-- 作者:blsu33 -- 发布时间: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 |
||||
-- 作者:blsu33 -- 发布时间:2018/6/22 21:21:00 --
|
||||
-- 作者:有点蓝 -- 发布时间:2018/6/22 21:34:00 -- 请上传具体实例测试 |
||||
-- 作者:blsu33 -- 发布时间:2018/6/23 6:45:00 --
|
||||
-- 作者:blsu33 -- 发布时间:2018/6/23 6:48:00 --
|
||||
-- 作者:有点蓝 -- 发布时间: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事件代码 |