| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 487 人关注过本帖
标题:错误3265,数据表中有些数据集合可以读出,有些读不出
只看楼主 加入收藏
lee重
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2013-5-7
结帖率:100%
收藏
 问题点数:0 回复次数:2 
错误3265,数据表中有些数据集合可以读出,有些读不出
程序代码:
Private Sub Command1_Click()
    'Unload Me
    frmAppend.Show
End Sub
Private Sub Command2_Click()
    'Unload Me
    frmQuery.Show
End Sub

Private Sub Command3_Click()
    If MsgBox("是否要删除 " & MSFlexGrid.TextMatrix(MSFlexGrid.Row, 1) & " 的数据?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
            recjyxx.MoveFirst
            recjyxx.Move MSFlexGrid.Row - 1
            recjyxx.Delete
            For i = MSFlexGrid.Row To MSFlexGrid.Rows - 2
                For j = 0 To MSFlexGrid.Cols - 1
                    MSFlexGrid.TextMatrix(i, j) = MSFlexGrid.TextMatrix(i + 1, j)
                Next
            Next
            MSFlexGrid.Rows = MSFlexGrid.Rows - 1
End Sub



Private Sub Command4_Click()
    End
End Sub

Private Sub Form_Load()
    Dim i As Integer
    Set db = OpenDatabase(App.Path & "\MIS.mdb", False, False) '打开数据库
    Set recjyxx = db.OpenRecordset("加油信息表")                         '打开记录集
   
    MSFlexGrid.FormatString = "^序号|<单 位 名 称|<客户名称|< 车 牌 号 |>加油型号|>油单价|>加油量|>单次加油金额|>月份"
    MSFlexGrid.Rows = recjyxx.RecordCount + 1
    For i = 1 To MSFlexGrid.Rows - 1
           MSFlexGrid.TextMatrix(i, 0) = i
    Next
    i = 0
    With recjyxx
        Do While Not .EOF
           i = i + 1
           MSFlexGrid.TextMatrix(i, 1) = !单位名称
           MSFlexGrid.TextMatrix(i, 2) = !客户名称
           MSFlexGrid.TextMatrix(i, 3) = !车牌号
           MSFlexGrid.TextMatrix(i, 4) = !加油型号
           MSFlexGrid.TextMatrix(i, 5) = !油单价
           MSFlexGrid.TextMatrix(i, 6) = !加油量
           MSFlexGrid.TextMatrix(i, 7) = !单次加油金额
           MSFlexGrid.TextMatrix(i, 8) = !月份
           .MoveNext
        Loop
    End With
End Sub

Private Sub Form_Resize()
    MSFlexGrid.Width = Me.ScaleWidth - MSFlexGrid.Left
    MSFlexGrid.Height = Me.ScaleHeight - MSFlexGrid.Top
End Sub

Private Sub Form_Unload(Cancel As Integer)
    recjyxx.Close
  
    db.Close
   
End Sub
单位名称,车牌号,加油型号,单次加油金额和月份都显示这个集合中找不到该项目[local]1[/local]
搜索更多相关主题的帖子: 数据表 
2013-05-31 19:08
lee重
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2013-5-7
收藏
得分:0 
管理系统.rar (32.59 KB)
这是我的程序,可以帮忙看一下
2013-05-31 19:09
lee重
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2013-5-7
收藏
得分:0 
各位会的帮帮忙啊,谢谢了
2013-05-31 22:15
快速回复:错误3265,数据表中有些数据集合可以读出,有些读不出
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.043070 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved