打印是一个空间,你只需要添加窗体就可以了.然后添加控件,再去调用这个窗口

查询后属于重新显示在datagrid控件上.
请在事件的最前方加入对上次查询结果的清空
例如:我输入日期在textbox1.text中,按buttoon1查询,结果显示在datagrid中
代码如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ds.Clear()
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
cmd.CommandText = "select u_id as 编号,u_name as 姓名,u_sex as 性别,u_indate as 入学时间,u_zhy as 所学专业,u_dw as 所在单位 from info where u_indate='" & TextBox1.Text & "'"
cmd.Connection = conn
cmd.CommandType = CommandType.Text
dr.SelectCommand = cmd
dr.Fill(ds, "info")
DataGrid1.DataSource = ds.Tables("info")
DataGrid1.DataBind()
If conn.State = ConnectionState.Open Then
conn.Close()
End If
end sub

[此贴子已经被作者于2006-5-16 21:28:54编辑过]

关于你记录修改的原代码,实在是不好检查,毕竟我没有你的数据库,而你的错误多半的可能属于内部错误,
还是建议你好好检查sql语句是否有错误!!!`

如果是时间的传递,建议加入DateTimePicker控件,这样好进行转换点.在时间的输入上也方便点
具体代码如下:(必须加入DateTimePicker控件,该值是DateTimePicker的选择结果)
& DateTimePicker1.Value.Date &
这样就没错了

你只要将分类子节点的数据用数据库中你要填充的行进行填充就可以了,我在自己机子上面用sqlserver 2000的已有的数据库试了一下,能成功
你自己稍加修改应该就可以完成.(请原谅没时间去重做一个access的数据库)
Dim i As Integer
Dim str As String
str = "select * from department" '查询该表中的所有行,注意,该表只有一行,如果有多行,只能查询一行
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
comm.Connection = conn
comm.CommandType = CommandType.Text
comm.CommandText = str
da.SelectCommand = comm
da.Fill(ds, "department") '填充表
For i = 0 To ds.Tables("department").Rows.Count - 1
Me.TreeView1.Nodes(0).Nodes.Add(ds.Tables("department").Rows(i).Item(1)) '将查询的结果显示在treeview控件的子接点上面!~
Next

asp.net的模块应该有人能回答这个问题,我对asp.net了解不是很深!~请谅解!

Private Sub frmDepManage_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim db As DataBase = New DataBase
Dim strSQL As String
strSQL = "select * from 组织机构编码表 order by absIndex"
dvList = db.RunSelectSQL(strSQL)
db.Dispose()
'初始化TreeView控件的各个节点
InitTree(trvList.Nodes, "-1")
End Sub
'InitTree是用递归方法初始化TreeView控件的节点
Private Sub InitTree(ByRef nodes As TreeNodeCollection, _
ByVal sParentIndex As String)
Try
Dim tmpNode As TreeNode
Dim absIndex As String
Dim dvTemp As DataView = dvList.Table.DefaultView
'选出数据源中ParentIndex为sParentIndex数据行
Dim dataRows() As DataRow = _
dvList.Table.Select("ParentIndex = '" + sParentIndex + "'")
'循环添加TreeNode
For Each dr As DataRow In dataRows
'获得节点所需数据
tmpNode = New TreeNode
tmpNode.Text = dr("类别")
'用TreeNode的Tag属性保存与此节点相关的数据
tmpNode.Tag = CType(New TreeNodeData(dr("AbsIndex"), _
dr("ItemIndex"), dr("ItemLevel"), _
dr("ParentIndex"), dr("类别号"), dr("单位编号")), Object)
absIndex = dr("AbsIndex")
'添加节点
nodes.Add(tmpNode)
'递归调用
InitTree(nodes(nodes.Count - 1).Nodes, absIndex)
Next
Catch ex As Exception
MessageBox.Show("初始化TreeView失败")
End Try
End Sub
这个方法可以子接点和根接点都用数据库里来调用!~你是这个意思吗?关键在于表的关系 要做好

大家使用前务必先附加.mdf的数据库文件.另外,数据库是sql2000的.没安装sql2000server的都不能使用系统,请安装后使用
不然无法登陆就是很正常的现象@!!~~

附加数据库就是右建附加就可以啦!~

人力资源系统已公布,请关注!~