Foxtable(狐表)用户栏目专家坐堂 → "静默"自动升级


  共有2138人关注过本帖树形打印复制链接

主题:"静默"自动升级

帅哥哟,离线,有人找我吗?
yetle
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:858 积分:6381 威望:0 精华:0 注册:2017/2/13 9:04:00
"静默"自动升级  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
yetle
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:858 积分:6381 威望:0 精华:0 注册:2017/2/13 9:04:00
  发帖心情 Post By:2018/7/25 9:01:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
yetle
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:858 积分:6381 威望:0 精华:0 注册:2017/2/13 9:04:00
  发帖心情 Post By:2018/7/25 16:22:00 [显示全部帖子]

还是不行

 回到顶部