|
GridViewを使って少し進めました。
'------列のを追加
dt.Columns.Add(New DataColumn("漢字氏名",GetType(String))) dt.Columns.Add(New DataColumn("作業ID",GetType(String)))
For i = 0 to 6 dim str_lday as string = DateAdd(DateInterval.Day,i,Today()).ToString("MM/dd (ddd)") dt.Columns.Add(New DataColumn(str_lday,GetType(String))) Next
’------------------------
'データベースの呼び出し-----------------------
中略・・ While (dr.Read()) str_01=dr("inf01").ToString str_02=dr("inf02").ToString str_03=dr("inf03").ToString str_04=dr("inf04").ToString str_05=dr("inf05").ToString str_06=dr("inf06").ToString str_07=dr("inf07").ToString str_08=dr("inf08").ToString str_09=dr("inf09").ToString str_10=dr("inf10").ToString
'行の追加----------------------------------------------- drow = dt.NewRow() drow(0)=dr("inf03") '漢字氏名 drow(1)=dr("inf07") ’作業ID drow(2)=dr("inf08") & "-" & dr("inf09") & ":" & dr("inf10") dt.Rows.Add(drow)
これでは、デーがはすべて今日の列に表示されてしまい、 日付と作業IDを対応した表示するにはどうすればよろしいでしょうか? ご教示のほどよろしくお願いたします。 '--------------------------------------------------------
EndWhile
Me.GridView1.DataSource=dt.DefaultView Me.GridView1.DataBInd()
|