主题："静默"自动升级

加了这一句后，升级完后，提示已更新，但是有弹出提示：登录窗口已经关闭，不能调用其中的控件“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

IF Syscmd.Project.Update(False,False) Then

'后续代码

End if

参考2楼代码

 

If Syscmd.Project.Update(False,False) Then

    '你本来的代码

End if

这样加了后，用户数据不出来

If Syscmd.Project.Update(False,False) = False Then '如果没有升级
    'Forms("窗口1").open()
    '后续其它代码
End If

还是不行

 

不可能，做一个出错的实例发上来测试。