Moin,
Ich habe folgenden VBA-Code, welcher eine Word-Tabelle befüllt.
Hat Textbox.Text links einen Wert, soll es die Linke und Rechte Spalte in die Tabelle übernehmen.
Siehe Bild-->
Nun soll dieser aber in C# funktionieren... soweit bin ich bereits:
Hoffe mir kann hier jemand helfen, da das so ziemlich der wichtigste Teil ist...
Danke für jede Hilfe!
Gruss Newsletter
Ich habe folgenden VBA-Code, welcher eine Word-Tabelle befüllt.
Hat Textbox.Text links einen Wert, soll es die Linke und Rechte Spalte in die Tabelle übernehmen.
Siehe Bild-->
Visual Basic-Quellcode
- Dim Nr As String
- Dim Arr As Variant
- Dim P As String
- Dim Arra As Variant
- If Len(txtNr1.Text) > 0 Then
- Nr = txtNr1.Text & Chr$(255)
- P = txtP1.Text & Chr$(255)
- End If
- If Len(txtNr2.Text) > 0 Then
- Nr = Nr & txtNr2.Text & Chr$(255)
- P = P & txtP2.Text & Chr$(255)
- End If
- If Len(txtNr3.Text) > 0 Then
- Nr = Nr & txtNr3.Text & Chr$(255)
- P = P & txtP3.Text & Chr$(255)
- End If
- If Len(Nr) > 0 Then
- Arr = Split(Nr, Chr$(255), , vbBinaryCompare)
- Arra = Split(P, Chr$(255), , vbBinaryCompare)
- Select Case UBound(Arr)
- Case 1
- With ActiveDocument.Tables(1) '1.Zeile
- .Rows(1).Cells(1).Range.Text = Arr(0)
- .Rows(1).Cells(2).Range.Text = Arra(0)
- End With
- Case 2
- With ActiveDocument.Tables(1)
- .Rows(1).Cells(1).Range.Text = Arr(0)
- .Rows(2).Cells(1).Range.Text = Arr(1)
- .Rows(1).Cells(2).Range.Text = Arra(0)
- .Rows(2).Cells(2).Range.Text = Arra(1)
- End With
- Case 3
- With ActiveDocument.Tables(1)
- .Rows(1).Cells(1).Range.Text = Arr(0)
- .Rows(2).Cells(1).Range.Text = Arr(1)
- .Rows(3).Cells(1).Range.Text = Arr(2)
- .Rows(1).Cells(2).Range.Text = Arra(0)
- .Rows(2).Cells(2).Range.Text = Arra(1)
- .Rows(3).Cells(2).Range.Text = Arra(2)
- End With
- End Select
Nun soll dieser aber in C# funktionieren... soweit bin ich bereits:
C#-Quellcode
- string Nr = "";
- Object Arr;
- Dim P As String;
- Object Arra;
- if (L1.Text.Length > 0)
- {
- Nr = L1.Text + (Char)255;
- Arr = R1.Text + (Char)255;
- }
- if (L2.Text.Length > 0)
- {
- Nr = L2.Text + (Char)255;
- Arr = R2.Text + (Char)255;
- }
- if (L3.Text.Length > 0)
- {
- Nr = L3.Text + (Char)255;
- Arr = R3.Text + (Char)255;
- }
Hoffe mir kann hier jemand helfen, da das so ziemlich der wichtigste Teil ist...
Danke für jede Hilfe!
Gruss Newsletter
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „newsletter“ ()