[已解决]根据复选框的报考类别、报考职位(两者相对应)再根据下红框的打钩的复选框提取数据

qinhuan66 · 发表于 2013-6-8 17:27

老师今天摆弄了一天也弄不了有难求助您：如何根据复选框的报考类别、报考职位（两者相对应）再根据下红框的打钩的复选框的项目输入到A3:Z2000内）自动产生标题，忘记说数据还是从Access数据库提取。谢谢

有难救助hwc2ycy老师.rar (173.78 KB, 下载次数: 10)

hwc2ycy · 发表于 2013-6-8 20:40

这个SQL语句应该不是很难吧。
两个条件，查询生成都是可以生成的。

qinhuan66 · 发表于 2013-6-8 21:03

hwc2ycy 发表于 2013-6-8 20:40
这个SQL语句应该不是很难吧。
两个条件，查询生成都是可以生成的。

老师呀!我都摆弄了一天了，都是没有结果。我以为这样做不能实现呢。那样全选、清空我也偷到你一点师了

，可以这个还是第一次弄。真的不怎知如何下手。谢谢。能否再帮指点一下。在此感激不尽。

hwc2ycy · 发表于 2013-6-8 21:10

帮你把SQL语句生成好了，剩下的查询你应该能搞定了吧。

Private Sub CommandButton3_Click()
Dim strfields As String
Dim Database As String, strSQL As String
strfields = getFields
If Len(Me.ComboBox1.Text) = 0 Or Len(Me.ComboBox2.Text) = 0 Then MsgBox "报考职位，报考类别没有选择": Exit Sub
If Len(strfields) = 0 Then MsgBox "无选择字段": Exit Sub
Database = "gkzp"
strfields = Left(strfields, Len(strfields) - 1)
strSQL = "select " & strfields & " from " & Database & " where 报考类别='" & Me.ComboBox1.Text & "' and 报考职位='" & Me.ComboBox2.Text & "'"
MsgBox strSQL
End Sub
Function getFields()
Dim i As Byte
Dim objControl As Control
For Each objControl In Me.Controls
If TypeName(objControl) Like "CheckBox" Then
If objControl.Value Then
i = i + 1
getFields = getFields & objControl.Caption & ","
End If
End If
Next
'If i = 0 Then getfileds = False
End Function

复制代码

hwc2ycy · 发表于 2013-6-8 21:28

原来给你写过一个ADOQUERY的过程吧，直接把SQL语句做查询套进去。

qinhuan66 · 发表于 2013-6-8 21:43

hwc2ycy 发表于 2013-6-8 21:10
帮你把SQL语句生成好了，剩下的查询你应该能搞定了吧。

老师经测试没通过

hwc2ycy · 发表于 2013-6-8 21:51

你把附件发来，我看看。

qinhuan66 · 发表于 2013-6-8 21:57

hwc2ycy 发表于 2013-6-8 21:51
你把附件发来，我看看。

有难救助hwc2ycy老师.rar (173.89 KB, 下载次数: 3)

hwc2ycy · 发表于 2013-6-8 22:12

我这个不是说了嘛，只帮你生成SQL语句，后面的查询及输出你自己完成嘛。

hwc2ycy · 发表于 2013-6-8 22:13

按理说，查询的你应该很会了嘛。

		自动登录	找回密码
密码			注册