Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:打开带分页的窗口

1楼
g1j2h3 发表于:2024/6/27 18:23:00
点击查看按钮后,打开如下图所示的第二个页面,麻烦老师看看我的代码错在哪里
DataTables("出库登记").Save() '接下来要根据主键查找,必须先保存,因为只有保存后新增行的主键才是有效值。
Dim id As String = e.Form.Controls("Label2").Text
Dim dr As DataRow = DataTables("出库登记").Find("[_Identify] = " & id)
If dr Is Nothing Then
    DataTables("出库登记").AppendLoad("[_Identify] = " & id)
    dr = DataTables("出库登记").Find("[_Identify] = " & id)
Else
    dr.Load()
End If
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("出库登记").FindRow(dr)
    If wz < 0 Then '如果因为筛选导致此送货单不可见
        Tables("出库登记").Filter = ""
        wz = Tables("出库登记").FindRow(dr)
    End If
    If wz >= 0 Then
        Tables("出库登记").Position = wz
        Forms("库存信息").Open()
        If Forms("库存信息").opened Then
            Dim Bar As WinForm.NavBar
            Bar = e.Form.Controls("NavBar1")
            Bar.SelectedIndex = 1
        End If
    End If
End If
e.Form.Close()

图片点击可在新窗口打开查看此主题相关图片如下:库存信息.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:查看.png
图片点击可在新窗口打开查看


2楼
有点蓝 发表于:2024/6/27 20:38:00
看不出有什么错。代码执行出什么错误?
3楼
g1j2h3 发表于:2024/6/27 20:53:00
提示找不到NavBar1的控件
4楼
有点蓝 发表于:2024/6/27 20:58:00
NavBar是"库存信息"窗口的?

Bar = e.Form.Controls("NavBar1")
改为
Bar = Forms("库存信息").Controls("NavBar1")
共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.