Foxtable(狐表)用户栏目专家坐堂 → 打开窗口问题


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

主题:打开窗口问题

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


加好友 发短信
等级:幼狐 帖子:188 积分:1754 威望:0 精华:0 注册:2016/4/12 9:05:00
打开窗口问题  发帖心情 Post By:2018/6/20 11:48:00 [只看该作者]

请教老师, 下列代码的目的是转换数据源,但是到了倒数第二句 “Forms("开始界面").open” 不执行了,打开不了窗口,为什么?

Dim dlg As New openFileDialog '定义一个新的SaveFileDialog
Dim c1 As String = projectpath
dlg.initialDirectory = c1
dlg.Filter= "Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim s As String =""
    '遍历当前属于此数据源的表
    For Each dt As DataTable In DataTables
        If dt.C  Then
            s += "|" & dt.name
        End If
    Next
    s = s.Trim("|")
    '卸载表
    DataTables.Unload(s)
    Dim s1 As String =  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dlg.FileName & ";Persist Security Info=False"
    Connections.Delete("cw")
    Connections.add("cw",s1)
    DataTables.load(s)
    Tables("凭证录入表").Cols("科目").DropForm = "凭证录入辅助下拉窗口" '客户表的县市列也采用我们设计的下拉窗口输入数据.
    Tables("凭证录入表").Cols("摘要").DropForm ="凭证录入辅助摘要下拉窗口"
    Tables("负债表").Cols("报表分类B").Combolist = DataTables("科目").GetComboListString("报表分类","","科目代码")
    Tables("负债表").Cols("报表分类A").Combolist = DataTables("科目").GetComboListString("报表分类","","科目代码")
    Forms("开始界面").open
End If


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/20 11:50:00 [只看该作者]

开始界面是停靠窗口吗?是哪个表格的停靠窗口?对应的表格显示了没有?


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


加好友 发短信
等级:幼狐 帖子:188 积分:1754 威望:0 精华:0 注册:2016/4/12 9:05:00
  发帖心情 Post By:2018/6/20 12:05:00 [只看该作者]

谢谢老师,搞错了,已调好了。


 回到顶部