| 以文本方式查看主题 - 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=122395) |
| -- 作者：yetle -- 发布时间：2018/7/24 17:03:00 -- "静默"自动升级 加了这一句后，升级完后，提示已更新，但是有弹出提示：登录窗口已经关闭，不能调用其中的控件“combobox1” Syscmd.Project.Update(False,False) Dim cmd As New
SQLCommand Dim dt As
DataTable Dim dr As DataRow Dim cmb As
WinForm.ComboBox = e.Form.Controls("ComboBox1") cmd.C
cmd.CommandText =
"SELECT * Fr om {用户表} order by 登陆时间 Desc" dt =
cmd.ExecuteReader()
For Each dr In
dt.Datarows cmb.Items.Add(dr("用户名称")) Next cmb.SelectedIndex
= 0
Dim cmb2 As
WinForm.ComboBox = e.Form.Controls("ComboBox2") Dim dt2 As
DataTable=DataTables("账套管理") Dim dr2 As DataRow
For Each dr2 In
dt2.DataRows cmb2.Items.Add(dr2("数据源名称")) Next
For i As Integer =
0 To cmb2.Items.Count - 1 If cmb2.Items(i) = dt.DataRows(0)("登陆账套")
Then cmb2.SelectedIndex = i Else cmb2.SelectedValue="默认账套" End If Next |
| -- 作者：linyunu -- 发布时间：2018/7/24 17:25:00 -- IF Syscmd.Project.Update(False,False) Then \'后续代码 End if |
| -- 作者：有点甜 -- 发布时间：2018/7/24 17:31:00 -- 参考2楼代码
If Syscmd.Project.Update(False,False) Then \'你本来的代码 End if |
| -- 作者：yetle -- 发布时间：2018/7/25 9:01:00 -- 这样加了后，用户数据不出来 |
| -- 作者：有点甜 -- 发布时间：2018/7/25 9:29:00 -- If Syscmd.Project.Update(False,False) = False Then \'如果没有升级 \'Forms("窗口1").open() \'后续其它代码 End If |
| -- 作者：yetle -- 发布时间：2018/7/25 16:22:00 -- 还是不行 |
| -- 作者：有点甜 -- 发布时间：2018/7/25 16:36:00 -- 以下是引用yetle在2018/7/25 16:22:00的发言：
还是不行
不可能，做一个出错的实例发上来测试。 |
| -- 作者：YDS -- 发布时间：2018/7/25 16:37:00 -- 这是我的，仅供参考！ If TryConnectHost("XXXX.me") Then If Network.Ping("XXXX.me") Then RemoteUpdate = True UpdatePath = "http://XXXX.me/XX" Else RemoteUpdate = False UpdatePath = "http://192.168.1.250/XX" End If Else RemoteUpdate = False UpdatePath = "http://192.168.1.250/XX" End If If Syscmd.Project.Update(False,False) = False Then Forms("登录").Open() End If
|