cmdstr = "select id,datediff(yy,a4,getdate()) as age,case a2 when 1 then '男' when 2 then '女' end as xb,A1,convert(varchar(10),a227,120) as a227 " cmdstr += " from " + DataBase.DtableName + ".dbo.a where A1 not in (" & ss & ") and change=5 and ID in (select id=min(id) from " + DataBase.DtableName + ".dbo.A where change=5 group by userbsh) and A0='" + sq + "' order by id,a227" cmdstr2 = cmdstr If DataBase.con1.State.ToString = "Clsoed" Then DataBase.con1.Open() End If Dim adapter As New SqlDataAdapter(cmdstr, DataBase.con1) Dim ds As New DataSet adapter.Fill(ds, "temptable") Btn_All.Text = "全部数据作为新增体检共" Btn_All.Text += (ds.Tables(0).Rows.Count).ToString() + "条" '翻页 mydatagrid.DataSource = ds mydatagrid.DataBind()
cmdstr += " from " + DataBase.DtableName + ".dbo.a where A1 not in (" & ss & ") and change=5 and ID in (select id=min(id) from " + DataBase.DtableName + ".dbo.A where change=5 group by userbsh) and A0='" + sq + "' order by id,a227"
cmdstr2 = cmdstr
If DataBase.con1.State.ToString = "Clsoed" Then
DataBase.con1.Open()
End If Dim adapter As New SqlDataAdapter(cmdstr, DataBase.con1)
Dim ds As New DataSet
adapter.Fill(ds, "temptable")
Btn_All.Text = "全部数据作为新增体检共"
Btn_All.Text += (ds.Tables(0).Rows.Count).ToString() + "条"
'翻页
mydatagrid.DataSource = ds
mydatagrid.DataBind()
功能,很强大的