新人，发帖散分

[lelebiaoll]

散分的同时问个问题哈。。。。我现在想做一个考勤的网站，，从数据库中读取姓名。。。然后再根据数据库中的人员数量新建相同数量的复选框。。。。请问vb怎么实现？

[Larry_soft]

帮顶一下！我才刚学vb.net！

[dandan5211]

从数据库中读取纪录，用然后用动态控件数组创建复选框，直接用 load 引导，每读取一个 + 1 把这个值给复选框数组就可以了，具体代码就不写了

[sanyexian]

过来接分……

[gxingmin]

读到人员数量后，动态创建复选框

select * from 人员表
填充到记录集ds里

for i as integer=0 to ds.Tables(0).Rows.Count-1
   dim chk as new CheckBox()
   chk.Location=new Point(10,i*30+10)
   me.Controls.Add(chk)
next

[gxingmin]

填充数据到记录集的方法

Dim objConn As New OleDbConnection()
        objConn.ConnectionString = conn
         Dim objCmd As New OleDbDataAdapter("select * from 人员表", objConn.ConnectionString)
        Dim ds As New DataSet()
        objCmd.Fill(ds)
        Dim myTable As DataTable = ds.Tables(0)

for i as integer=0 to ds.Tables(0).Rows.Count-1
   dim chk as new CheckBox()
   chk.Location=new Point(10,i*30+10)
   me.Controls.Add(chk)
next

[kyzy_yy_pm]

上面的已经能实现 了，新人，接分~~~

[renjianguokeivor]

是vb，路过。。

[Aquarius娜吖]

Mark...

[贫下码农e]

我不是来接分的，我是来抢分的...
:)))

[z263792887]

抢分中！

[ACMAIN_CHM]

[gxingmin]

这些方法放在窗体里，me是指窗体对象，如果你把这些代码放在其他类里，那你把me换成你的窗体对象，如

...
dim frm as new Form1()
Try
            While myReader.Read()

                Dim xx As String
                xx = myReader(0)
                Dim chk As New CheckBox()
                 chk.Left=10
                 chk.Top=i*30+10
                 frm.Controls.Add(chk)



            End While
        Finally
            myReader.Close()
        End Try
        ...

[zning8191]

接分！！！！！！

[lsq667]

读到数据库的人员信息和数量后，动态创建复选框

[sunrisehy2003]

学习！！！！！！

[rainzero]

抢分中！

[ElfSundae]

[andrew_zhouwang]

接分 难道接晚了

[redlotus_lyn]

顶.............

[dty0788]

又见到石头哥，很不错的一个技术大哥。