16,555
社区成员
发帖
与我相关
我的任务
分享
Dim objConn As New OleDbConnection()
objConn.ConnectionString = conn
objConn.Open()
Dim objCmd As New OleDbDataAdapter("select a.basic_hrs,a.ot_hrs,a.sun_hrs,a.hd_hrs,a.absent_days,late_count,leave_count from Report_Month a inner join Employee b on a.emp_id = b.emp_id where b.emp_fname = '" + number + "' and a.YM= '" + YM + "'", objConn.ConnectionString)
Dim ds As New DataSet()
objCmd.Fill(ds)
objConn.Close()
Dim myTable As DataTable = ds.Tables(0)