vbでDataTableの抽出コピー
DataTableから条件抽出したデータで別のDataTableを作成したい
・DataTable1から条件抽出したデータで別のDataTableを作成したい
・データの件数が違うだけでヘッダーなどの内容は同じにしたい
Dim DataTable1 As DataTable ' 既にテーブルデータが入っているとする
Dim DataTable2 As DataTable ' これに一部のデータとヘッダーを複写
Dim DataRow1 As DataRow ' DataRowの一時領域１
Dim DataRow2 As DataRow ' DataRowの一時領域２
＜試作１：ＮＧ DataRowの使いまわしがきかない＞
DataTable2 = DataTable1.Clone
For Each DataRow1 In DataTable1.Select(条件, ソート)
DataTable2.Rows.Add(DataRow1)
Next DataRow1
＜試作２：ＮＧ ワンクッションかましただけではダメ＞
DataTable2 = DataTable1.Clone
For Each DataRow1 In DataTable1.Select(条件, ソート)
DataRow2 = DataRow1
DataTable2.Rows.Add(DataRow2)
Next DataRow1
もしかして、個別セット以外に道はないのでしょうか？
DataTable2 = DataTable1.Clone
For Each DataRow1 In DataTable1.Select(条件, ソート)
DataRow2 = DataTable2.NewRow
DataRow2("item1") = DataRow1("item1")
DataRow2("item2") = DataRow1("item2")
DataRow2("item3") = DataRow1("item3")
DataRow2("item4") = DataRow1("item4")
DataRow2("item5") = DataRow1("item5")
DataRow2("item6") = DataRow1("item6")
DataRow2("item7") = DataRow1("item7")
DataRow2("item8") = DataRow1("item8")
DataTable2.Rows.Add(DataRow2)
Next DataRow1
何か良い方法はありませんか？
お願いします．
現在，メーカーの計測器についているライブラリ(dll)を利用して，測定ソフトを試作しようとしています．
仕様書ではライブラリはC言語で書いてあるようですが，自分はVB.NETでソフトを作ろうと思っています．
しかし，うまく関数を使うことができず，現在停滞ています（＞＜；
以下にソースを示しますので，どなたか問題点をご指摘いただけないでしょうか？
>>ライブラリ(仕様書)
int send_cmd( WORD CmdSize, void *CmdPacket )
//WORD:符号なし64ビット
//CmdSize:送信パケットサイズ(Byte)
//CmdPacket:送信パケット
>>VB.NET(自作)
Public Declare Function send_cmd lib "test.dll" (ByVal CmdSize as ULong, ByRef CmdPacket as Byte() ) as integer
Dim Test_Packet(a) as Byte
res = send_cmd(Test_Packet.length, Test_packet)
//Test_Packet : 送信用パケットのダンプ
***結果
res の値が仕様書の"ｄｌｌの内部エラー"の値でした．
こんにちは．
Cを勉強している最中に疑問にあったことを質問させていただきます．以下のプログラムで配列myarrayの中の最大のメンバーを見つけるプログラムです．コメントアウトしてある
//int ary_size = sizeof(myarray)/4;
をグローバル変数で定義するとうまく最大の数を見つけてくれるのですが，
関数の中で
int ary_size = sizeof(ary)/4;
と定義するとうまくいきません．そこで，以下の
printf("The size of the ary is %d\n",ary_size);
という表示を追加したところ，ary_size = 1となっていることが分かりました．
なぜそうなるのでしょう？関数の引数はint ary[]の配列なので，sizeof(ary)でaryがメモリ中で占めるバイト数が得られるんじゃないんですかね？ちなみに私の環境ではsizeof(int)は4バイトなので
int ary_size = sizeof(ary)/4;
と割る4で配列のメンバーの数を求めています．
初心者の質問ですみませんがよろしくお願いします．
#include <stdio.h>
#include <Windows.h>
int myarray[] = {1,2,3,4,5,6,7,2};
int FindMax(int ary[]);
//int ary_size = sizeof(myarray)/4;
int main()
{
int max;
max = FindMax(myarray);
printf("The maximum value is %d\n",max);
Sleep(2000);
return(0);
}
int FindMax(int ary[])
{
int ary_size = sizeof(ary)/4;
int i;
int max;
max = ary[0];
for(i=1;i<ary_size;i++)
{
if(ary[i]>max)
{
max = ary[i];
}
}
printf("The size of the ary is %d\n",ary_size);
return(max);
}
はじめまして。
現在ASP.net でweb画面を作成していますが、動的に作成したコントロールの削除が不規則な動きをしており困り果ててこちらにきました。よろしくお願いします。
配置してあるテーブルに行だけを動的に追加しており
その行には、テキストボックスと削除ボタンが含まれています。
不規則な動きというのは、以下になります。
1行目の削除ボタンを押す→1行目が消える
1行目になった削除ボタンを押す→変化なし
1行目の削除ボタンを押す→末尾の行が消える
という状態です。デバッグで確認すると、
Removeで消しているコントロールIDは確かに1行目のものなのに、
画面が開くとそれが残っているという現象です。
そしてなぜ末尾が途中から消されていくのかは分かりません。
もしかして思うのは、毎回Loadで動的に生成しているため、
削除ボタンが押されたときもLoad一度生成したものをイベントハンドラで削除しようとしていておかしくなるのかなという気もしますが、
毎回生成しないとコントロール自体が消えてしまい、Loadでなくイベントハンドラで生成するようにすると、今度は入力値が消えてしまいます。
ソースは以下になります。（一部抜粋）
とても困っています。宜しくお願いします。
'テーブルの枠だけデザイナで作成しておく
<table id="tblDynamic" runat="server" enableviewstate="false">
</table>
'ロード
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
’配置してあるテーブルに行を動的に追加する
For rowCnt As Integer = 1 To 10
tblFormat.Rows.Add(retCreateRow(rowCnt))
Next
End Sub
’テーブルの行（コントロールを含む）を作成して返す関数
Function retCreateRow(rowCnt As Integer) As HtmlTableRow
Dim tr As New HtmlTableRow
Dim cel1 As New HtmlTableCell
Dim cel2 As New HtmlTableCell
Dim txt As New TextBox
Dim btn As New ImageButton
txt .ID = "txt " & "_" & rowCnt
cel1.Controls.Add(txt)
tr.Cells.Add(cel1)
btn.ID = "btn" & "_" & rowCnt
btn.text="行削除"
AddHandler btn.Click, New System.Web.UI.ImageClickEventHandler(AddressOf btnDelete_btnInsert)
cel2.Controls.Add(btn)
tr.Cells.Add(cel2)
Return tr
End Function
'行削除イベントハンドラ
Private Sub btnDelete(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim ControlIdx = Split(CType(sender, ImageButton).ID, "_")(1)
'この削除ボタンがある行Indexを取得
For HitIdx As Integer = 1 To tblFormat.Rows.Count
If Not IsNothing(tblFormat.Rows(HitIdx).FindControl(CType(sender, ImageButton).ID)) Then
'あった！この行を削除する
Me.tblFormat.Rows.RemoveAt(HitIdx)
Exit For
End If
Next
End Sub
Visual Basic 2010でテキストボックスとコンボボックスを複数設置し
コンボボックスの選択の組み合わせによって消すテキストボックスを決めたいと思っています。
初心者で下記のようなコードしか思いつかないのですが、これを簡略化できませんか？
例)
コンボボックス1で一番目の項目を選択して、コンボボックス2で一番目の項目を選択した場合は
テキストボックス１のテキストを消す
コンボボックス1で一番上の項目を選択して、コンボボックス2で二番目の項目を選択した場合は
テキストボックス2のテキストを消す
みたいな感じです。
コード
If ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 1 Then
TextBox1.Clear()
ElseIf ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 2 Then
TextBox2.Clear()
ElseIf ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 3 Then
TextBox3.Clear()
ElseIf ComboBox1.SelectedIndex = 0 And ComboBox2.SelectedIndex = 4 Then
TextBox4.Clear()
End If
わかりづらい文章で申し訳ないですが、わかる方、回答をお願いします。
