| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 742 人关注过本帖
标题:帮这个窗体
只看楼主 加入收藏
wang1992
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2015-5-15
收藏
得分:0 
回复 9楼 wp231957
VB系统.zip (332.71 KB)
2015-05-15 16:29
wang1992
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2015-5-15
收藏
得分:0 
回复 10楼 lianyicq
我把Vb打包发到上面的回复了,你找找看打开就可以真的操作来看了
2015-05-15 16:32
wang1992
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2015-5-15
收藏
得分:0 
回复 11楼 边小白
已经打包发到9楼了
2015-05-15 16:34
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
?哪来的工程文件,人员排班窗口下的DataGrid1是picturebox控件,能显示数据才怪.

大开眼界
2015-05-15 16:52
wang1992
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2015-5-15
收藏
得分:0 
回复 15楼 lianyicq
没有吧,能在详细点吗
2015-05-15 17:01
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
把控件检查无误了,这个可以打开和显示
程序代码:
Option Explicit
Public conn As New ADODB.Connection
Public AdoRs As New ADODB.Recordset
Public OpenStr As String
Public strSQL As String


Private Sub Form_Load()
  OpenStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\sjk.mdb;" & "Jet OLEDB:Database Password="
  conn.Open OpenStr
  strSQL = "select * from ygxxb "
  AdoRs.CursorLocation = adUseClient
  AdoRs.Open strSQL, conn, 1, 1         '打开记录集
  Set DataGrid1.DataSource = AdoRs
End Sub
Private Sub Combo1_Click()
  AdoRs.Close
  strSQL = "select * from ygxxb where 所属车间='" & Combo1.Text & "'"
  AdoRs.Open strSQL, conn, 1, 1
  Set DataGrid3.DataSource = AdoRs
End Sub


大开眼界
2015-05-15 17:15
wang1992
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2015-5-15
收藏
得分:0 
回复 17楼 lianyicq
为什么还是不行啊   调试错误:对象关闭时,不允许操作
2015-05-15 17:47
快速回复:帮这个窗体
数据加载中...
 
   



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

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