UC知道如何在VB6.0用Data Report控件打印查询的记录
来源：百度知道 编辑：UC知道 时间：2024/04/30 17:41:43
比如打印DataGrid中查询的结果，最好有代码。谢谢啊！
Dim rec As New Recordset
Dim flag As Integer
Private Sub Command6_Click()
If rec.State = adStateOpen Then rec.Close '判断记录集状态，如果是打开就先关闭
sql = "select * from txgz where ygname = '" + Text13.Text + "' "
rec.Open sql, con, adOpenStatic, adLockOptimistic '打开记录集
rec.Requery
If rec.RecordCount < 1 Then
MsgBox ("无此员工!")
Exit Sub
Text13.Text = ""
Text13.SetFocus
End If
End Sub
姓名查询...
打印最好用vsflexgrid