untypisierte datatable an funktion übergeben?

  • VB.NET
  • .NET (FX) 4.0

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von Rattenfänger.

    untypisierte datatable an funktion übergeben?

    Hallo,

    ich habe ca. 20 datatables die zur Laufzeit in meinem MDIparent erstellt werden. Hintergrund anzahl sowie Bezeichnung der tables kann sich bei jedem programmstart ändern.
    Jetzt möchte ich eine bestimmte datatable an eine Function in einer anderen klasse übergeben.

    die Funktion ist wie folgt:

    VB.NET-Quellcode

    1. Public Function test(byval tabm1 as datatable, byval tab2 as datatable) as boolean
    3. ' hier der zu bearbeitende code'
    5. end function


    leider funktioniert das net!

    welche Möglichkeiten gibt es noch ein untypisierte table weiterzugeben.

    Dieser Coder ruft die function ab

    VB.NET-Quellcode

    1. If long1.longtrade1(tabellem15, tabellem60) = True Then ' hier bricht er immer ab, keine message kein gar stackowerflow !?
    2. LLS = True
    3. buysell = "B"
    4. anzeige = "Longtrade_M15_1"
    5. GoTo order
    6. End If


    VB.NET-Quellcode

    1. Option Strict On
    3. Friend Class Longtrade
    4. Inherits HystoryForm
    5. Dim kurs As KursFunktionen
    6. Dim DMI As DMIFunktionen
    7. Dim RSI As RSIFFunktionen
    8. Dim EMA As EMAFunktionen
    10. Public Function longtrade1(ByVal tabelm15 As DataTable, ByVal tabelm60 As DataTable) As Boolean
    12. Dim ergebniss As Boolean = False
    13. If EMA.EMAzwischen(tabelm15, 2.5, 10, 5, "Short") = True And EMA.EMAsinkt(tabelm15, tabelm15.Rows.Count - 1, 5, "Short", 1.0, 0.2) _
    14. And EMA.EMAsinkt(tabelm60, tabelm60.Rows.Count - 1, 10, "Short", 1.0, 0.2) = True Then
    15. If DMI.DMIgrößer(tabelm15, "DMIM", 25.0, 10) = True And DMI.DMIkleiner(tabelm15, "DMIP", 15, 10) = True _
    16. And DMI.DMIMsinkt(tabelm15, tabelm15.Rows.Count - 1, 5, 5, 0.2) = True Then
    17. ergebniss = True
    18. End If
    19. End If
    21. Return ergebniss
    22. End Function
    24. End Class



    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Rattenfänger“ ()

    Das erste snippet ist gar keine Methode - kannst du das iwie gestalten, dass man Zusammenhänge besser erfassen kann?

    wo kommt etwa dieses long-Dingens her, und was fürn Datentyp hat das?

    (und es beschleicht mich die Vermutung, dass da aus einem Modul in ein Form gegrabscht wird, womöglich in Zusammenhang mit MultiThreading)

    Nein ist ne Form, hier die ganze klasse! Wenn dieser Code ausgeführt wird läuft eine andere Klasse, die auch auf die tables zugreifen muss, aber auch nur lesen.
    Bis jetzt hat alles super geklappt, jedoch habe ich denn irre langen code in verschiedene Klassen verteilt und durch Funktionen ausgetauscht. Und seitdem funktioniert es nicht mehr.

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports fxcore2
    3. Imports System.Threading
    4. Public Class Form5
    5. Dim einstellung As New AllgemeineEinstellungen
    6. Dim long1 As New Longtrade
    7. Dim Short1 As New Shorttrade
    9. Public datagrid4(0, 0) As Object
    10. Public gridtrue As Boolean
    12. Delegate Sub DelegateUpdatePriceInfo(ByVal Innstrument As String, ByVal bid As Double, ByVal ask As Double, ByVal offerID As String, ByVal pipcost As Double)
    14. Delegate Sub DelegateUpdateTrades2(ByVal TradeID As String, ByVal OpenOrderID As String, ByVal UsedMargin As Double, ByVal OpenRate As Double, ByVal Amount As Integer, ByVal Limit As Double, ByVal Stoploss As Double, ByVal OpenTime As Date, ByVal GrossPL As Double, ByVal BuySell As String, ByVal OfferID As String, ByVal PL As Double, ByVal Commission As Double, ByVal AccountID As String)
    16. Delegate Sub DelegatefirstaddTrades(ByVal TradeID As String, ByVal OpenOrderID As String, ByVal UsedMargin As Double, ByVal OpenRate As Double, ByVal Amount As Integer, ByVal Limit As Double, ByVal Stoploss As Double, ByVal OpenTime As Date, ByVal GrossPL As Double, ByVal BuySell As String, ByVal offerID As String, ByVal PL As Double, ByVal Commission As Double)
    18. Delegate Sub DelegateLimitTrades(ByVal TradeID As String, ByVal OpenOrderID As String, ByVal UsedMargin As Double, ByVal OpenRate As Double, ByVal Amount As Integer, ByVal Limit As Double, ByVal Stoploss As Double, ByVal OpenTime As Date, ByVal GrossPL As Double, ByVal BuySell As String, ByVal OfferID As String, ByVal PL As Double, ByVal Commission As Double, ByVal AccountID As String)
    20. Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    22. Me.MdiParent = TZAutoTradingTool
    23. Me.Location = New Point(-2 + Form1.Size.Width, -1)
    25. End Sub
    27. Private Sub Form5_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged
    29. Me.Location = New Point(-2 + Form1.Size.Width, -1)
    31. End Sub
    33. Public Sub UpdateTrades(ByVal TradeID As String, ByVal OpenOrderID As String, ByVal UsedMargin As Double, ByVal OpenRate As Double, ByVal Amount As Integer, _
    34. ByVal Limit As Double, ByVal Stoploss As Double, ByVal OpenTime As Date, ByVal GrossPL As Double, ByVal BuySell As String, _
    35. ByVal OfferID As String, ByVal PL As Double, ByVal Commission As Double)
    37. Me.BeginInvoke(New DelegatefirstaddTrades(AddressOf firstAddTrades2), New Object() {TradeID, OpenOrderID, UsedMargin, OpenRate, Amount, _
    38. Limit, Stoploss, OpenTime, GrossPL, BuySell, OfferID, PL, Commission})
    39. End Sub
    41. Public Sub firstAddTrades2(ByVal TradeID As String, ByVal OpenOrderID As String, ByVal UsedMargin As Double, ByVal OpenRate As Double, ByVal Amount As Integer, _
    42. ByVal Limit As Double, ByVal Stoploss As Double, ByVal OpenTime As Date, ByVal GrossPL As Double, ByVal BuySell As String, _
    43. ByVal OfferID As String, ByVal PL As Double, ByVal commission As Double)
    45. For i = 0 To Me.DataGridView4.Rows.Count - 1
    46. If OfferID = CStr(Me.DataGridView4.Rows(i).Cells(12).Value) Then
    47. Me.datagrid4(i, 9) = True
    48. End If
    49. Next
    51. End Sub
    53. Public Sub UpdatePriceInfo(ByVal Innstrument As String, ByVal bid As Double, ByVal ask As Double, ByVal offerID As String, ByVal pipcost As Double)
    54. Me.BeginInvoke(New DelegateUpdatePriceInfo(AddressOf UpdatePriceInfo2), New Object() {Innstrument, bid, ask, offerID, pipcost})
    55. End Sub
    57. Public Sub UpdatePriceInfo2(ByVal Instrument As String, ByVal bid As Double, ByVal ask As Double, ByVal offerID As String, ByVal pipcost As Double)
    59. Try
    60. Dim i, i2, amount, posm5, posm15, posm60 As Integer
    61. Dim stoploss, umrechnung As Double
    62. Dim tabellem5, tabellem15, tabellem60 As DataTable
    64. Dim LLS, SSL, makeorder As Boolean
    65. Dim buysell, buysell1, anzeige As String
    66. Dim create As New Create_Order(Form1)
    68. Dim Tag = System.DateTime.Now.DayOfWeek
    69. Dim stunde = System.DateTime.Now
    71. Dim zeitakt As Date
    72. Dim RSI As Object
    74. makeorder = False
    75. LLS = False
    76. SSL = False
    78. zeitakt = CDate(stunde.ToString("HH:mm"))
    79. If Tag = DayOfWeek.Saturday Then
    80. Exit Sub
    81. ElseIf Tag = DayOfWeek.Sunday And zeitakt < CDate("23:59") Then
    82. Exit Sub
    83. ElseIf HystoryForm.reloadema = True Or HystoryForm.update2 = True Or Form2.update3 = True Then
    84. Exit Sub
    85. End If
    87. For i = 0 To Me.DataGridView4.Rows.Count - 1
    88. arrayeintragen2(offerID)
    90. If CStr(Me.datagrid4(i, 0)) = Instrument Then
    91. umrechnung = einstellung.umrechnung(Instrument)
    93. SyncLock offerID
    95. Try
    97. tabellem5 = HystoryForm.Setm5.Tables(Instrument)
    98. tabellem15 = HystoryForm.Setm15.Tables(Instrument)
    99. tabellem60 = HystoryForm.Setm60.Tables(Instrument)
    101. posm5 = tabellem5.Rows.Count - 1
    102. posm15 = tabellem15.Rows.Count - 1
    103. posm60 = tabellem60.Rows.Count - 1
    105. Me.datagrid4(i, 1) = bid
    106. Me.datagrid4(i, 2) = ask
    108. Me.datagrid4(i, 3) = CDbl(tabellem5.Rows(posm5).Item(10))
    109. Me.datagrid4(i, 4) = CDbl(tabellem5.Rows(posm5).Item(11))
    110. Me.datagrid4(i, 6) = CStr(tabellem15.Rows(posm15).Item(5))
    111. Me.datagrid4(i, 7) = CStr(tabellem15.Rows(posm15 - 1).Item(5))
    112. Me.datagrid4(i, 8) = CStr(tabellem15.Rows(posm15).Item(5))
    113. Me.datagrid4(i, 12) = offerID
    114. Me.datagrid4(i, 20) = CDbl(tabellem15.Rows(posm15).Item(2))
    115. Me.datagrid4(i, 27) = CDbl(tabellem15.Rows(posm15).Item(12))
    116. Me.datagrid4(i, 28) = CDbl(tabellem15.Rows(posm15).Item(13))
    117. Me.datagrid4(i, 29) = CStr(tabellem15.Rows(posm15).Item(19))
    119. Catch ex As Exception
    120. MsgBox("Fehler:" & ex.StackTrace & "wo:" & ex.Message & "wert" & CStr(RSI))
    121. End Try
    123. If ClosingTrades.nextdel = True And Form3.DataGridView7.Rows.Count - 1 < 0 Then
    124. Form8.DataGridView10.Rows.Clear()
    125. ClosingTrades.pipos = False
    126. ClosingTrades.pipspos = 0
    127. ClosingTrades.pipspostime = 0
    128. ClosingTrades.anzahl = 0
    129. ClosingTrades.nextdel = False
    130. ClosingTrades.emadeep = False
    131. Form6.CheckBox1.Checked = True
    132. Form6.CheckBox2.Checked = True
    133. Form6.CheckBox3.Checked = True
    134. Form6.CheckBox4.Checked = True
    135. End If
    137. If CBool(Me.datagrid4(i, 9)) = False And Form6.CheckBox1.Checked = True Then
    138. If long1.longtrade1(tabellem15, tabellem60) = True Then
    139. LLS = True
    140. buysell = "B"
    141. anzeige = "Longtrade_M15_1"
    142. GoTo order
    143. End If
    145. If Short1.Shorttrade1(tabellem15, tabellem60) = True Then
    146. LLS = True
    147. buysell = "S"
    148. anzeige = "Shorttrade_M15_1"
    149. GoTo order
    150. End If
    152. End If
    154. Dim aktuellzeit As String
    156. aktuellzeit = Date.UtcNow.ToString("HH:mm")
    158. order:
    160. SyncLock offerID
    162. If CBool(Me.datagrid4(i, 9)) = False Then
    164. amount = amountberechnen(CStr(Me.datagrid4(i, 0)))
    166. 'If Tag = DayOfWeek.Friday And zeitakt >= CDate("18:00") Then
    168. ' Grideintragen(i, i2)
    170. ' Exit Sub
    172. 'End If
    174. 'Tradeabruch
    176. If Form3.DataGridView7.Rows.Count >= 8 Then
    178. Grideintragen(i, i2)
    180. Exit Sub
    182. End If
    184. If HystoryForm.reloadema = True Then
    186. Grideintragen(i, i2)
    188. Exit Sub
    190. End If
    192. If Form6.CheckBox1.Checked = False Then
    194. Grideintragen(i, i2)
    196. Exit Sub
    198. End If
    200. anzeige = anzeige
    202. If LLS = True Then
    204. stoploss = stoplossberechne(Instrument, bid, ask, buysell)
    206. Me.datagrid4(i, 9) = True
    208. Me.datagrid4(i, 5) = anzeige
    210. Me.datagrid4(i, 13) = 0
    212. Me.datagrid4(i, 14) = 0
    214. Me.datagrid4(i, 15) = 0
    216. Me.datagrid4(i, 16) = 0
    218. Me.datagrid4(i, 17) = 0
    220. Me.datagrid4(i, 18) = 0
    222. Me.datagrid4(i, 19) = 0
    224. Me.datagrid4(i, 31) = CDbl(tabellem15.Rows(tabellem15.Rows.Count - 1).Item(8))
    226. Me.datagrid4(i, 32) = CDbl(tabellem15.Rows(tabellem15.Rows.Count - 1).Item(9))
    228. Me.datagrid4(i, 33) = Me.datagrid4(i, 29)
    230. Me.datagrid4(i, 34) = 0
    232. Me.datagrid4(i, 35) = 0
    234. Me.datagrid4(i, 36) = "Open"
    236. Me.datagrid4(i, 37) = 0
    238. Me.datagrid4(i, 38) = 0
    240. Me.datagrid4(i, 39) = 0
    242. Me.datagrid4(i, 40) = 0
    244. create.Create_TrueMarketOrder(Form1.MySession, CStr(Form1.DataGridView1.Rows(0).Cells(1).Value), offerID, amount, buysell, stoploss)
    246. Exit For
    248. End If
    250. End If
    252. End SyncLock
    254. End SyncLock
    256. End If
    258. Grideintragen2(i)
    260. Next
    262. Catch ex As Exception
    264. MsgBox("Fehler:" & ex.StackTrace & "wo:" & ex.Message & "wert")
    266. End Try
    268. End Sub
    270. ' andere functionen, die aber bis dato sehr gut funktioniert haben.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Rattenfänger“ ()

    was nein, ist ne Form? long1 ist ne Form? oder wird aus einer Form in eine Form gegrabscht?

    aber hat doch was mit Threading zu tun, odr?

    Nur finde ich in dem Vielen Code nicht mehr die Zeile, wo die Code-Ausführung auf einmal "verschwindet".

    Das Layout ist auch völlig zerschossen, ich erkenne gar keine Methoden und Zeugs.

    wie kann ich den code reinkopieren ohne diese vielen Leerzeilen?

    vlt. besser so.

    also longtrade ist die friendclass (kein modul) (das meinte ich mit nein). die form greift auf die klasse zu.
    mit dem threading hat es evtl nicht viel zu tun der der code lief ja.

    VB.NET-Quellcode

    1. If CBool(Me.datagrid4(i, 9)) = False And Form6.CheckBox1.Checked = True Then
    2. If CStr(tabellem60.Rows(posm60).Item(19)) = "Long" And CStr(tabellem60.Rows(posm60 - 20).Item(19)) = "Short" _
    3. andd CDbl(tabellem60.Rows(posm60).Item(20)) >= 0.1 And CDbl(tabellem60.Rows(posm60).Item(20)) <= 1.0 _
    4. And CStr(tabellem15.Rows(posm15).Item(19)) = "Long" _
    5. And CDbl(tabellem15.Rows(posm15).Item(20)) >= 0.5 And CDbl(tabellem15.Rows(posm15).Item(20)) <= 3.0 Then
    7. LLS = True
    8. buysell = "B"
    9. anzeige = "Longtrade_M15"
    10. GoTo order
    11. End If
    13. 　
    15. If CStr(tabellem60.Rows(posm60).Item(19)) = "Short" And CStr(tabellem60.Rows(posm60 - 20).Item(19)) = "Long" _
    16. And CDbl(tabellem60.Rows(posm60).Item(20)) >= 0.1 And CDbl(tabellem60.Rows(posm60).Item(20)) <= 1.0 _
    17. And CStr(tabellem15.Rows(posm15).Item(19)) = "Short" _
    18. And CDbl(tabellem15.Rows(posm15).Item(20)) >= 0.5 And CDbl(tabellem15.Rows(posm15).Item(20)) <= 3.0 Then
    19. LLS = True
    20. buysell = "S"
    21. anzeige = "Shorttrade_M15"
    22. GoTo order
    24. End If
    25. End If


    Das war der code vorher, mit dem hats funktioniert, da ich aber sauviele Funktionen, mit verschiedenen abfrage Funktionen programmieren möchte,
    ist das blöd alles in eine klasse oder Sub zu packen.

    deshalb habe ich es hiermit ersetzt:

    VB.NET-Quellcode

    1. If CBool(Me.datagrid4(i, 9)) = False And Form6.CheckBox1.Checked = True Then
    2. If long1.longtrade1(tabellem15, tabellem60) = True Then 'das hier ruft er nichtmal auf!!! und steigt schon im MDI parent in Wartefunktion!
    3. LLS = True
    4. buysell = "B"
    5. anzeige = "Longtrade_M15_1"
    6. GoTo order
    7. End If
    9. If Short1.Shorttrade1(tabellem15, tabellem60) = True Then
    10. LLS = True
    11. buysell = "S"
    12. anzeige = "Shorttrade_M15_1"
    13. GoTo order
    14. End If
    15. End If


    und es ist kein weitere thread, hinzugekommen.

    Dim long1 As New Longtrade
    Dim Short1 As New Shorttrade

    so habe ich auf die beiden neuen Klassen verwiesen.

    Nein soll eine nur eine Klasse sein, hatte es testweise in eine Friend class umgewandelt, sowie die inherits hinzugefügt.
    Wurde wieder Rückgängig gemacht.

    Habe jetzt eine Fehlermeldung bekommen.

    Genau an der fehlerhaften stelle. Ihm fehlt ein Objektverweis!?

    keine Ahnung, ich kann dir nicht folgen, ich weiß nicht die fehlerhafte stelle, und bei den 300 total unübersichtlichen Zeilen wird mir das vmtl. auch nix nützen, die fehlerhafte stelle näher kennenzulernen.

    Nur einzelne Zeilen stechen für mich da hervor, die auf eine falsche Architektur hindeuten, etwa sowas:

    Rattenfänger schrieb:

    VB.NET-Quellcode

    1. tabellem15 = HystoryForm.Setm15.Tables(Instrument)
    oder sowas:

    Rattenfänger schrieb:

    VB.NET-Quellcode

    1. Form6.CheckBox1.Checked = True

    Das sieht für mich aus, als ob da in andere Forms gegrabscht wird, aber du sagst ja, sowas würdest du nicht tun - naja, musst du wissen.
    Wenn es bei dir ein Form6 gibt, und ein HystoryForm, und das sind Forms - wie gesagt ...

    Und die ganzen Delegaten-Deklarationen deuten stark auf Threading hin, aber auch dieser Vermutung widersprichst du.

    Rattenfänger schrieb:

    VB.NET-Quellcode

    1. Delegate Sub DelegateUpdatePriceInfo(ByVal Innstrument As String, ByVal bid As Double, ByVal ask As Double, ByVal offerID As String, ByVal pipcost As Double)
    2. Delegate Sub DelegateUpdateTrades2(ByVal TradeID As String, ByVal OpenOrderID As String, ByVal UsedMargin As Double, ByVal OpenRate As Double, ByVal Amount As Integer, ByVal Limit As Double, ByVal Stoploss As Double, ByVal OpenTime As Date, ByVal GrossPL As Double, ByVal BuySell As String, ByVal OfferID As String, ByVal PL As Double, ByVal Commission As Double, ByVal AccountID As String)
    3. Delegate Sub DelegatefirstaddTrades(ByVal TradeID As String, ByVal OpenOrderID As String, ByVal UsedMargin As Double, ByVal OpenRate As Double, ByVal Amount As Integer, ByVal Limit As Double, ByVal Stoploss As Double, ByVal OpenTime As Date, ByVal GrossPL As Double, ByVal BuySell As String, ByVal offerID As String, ByVal PL As Double, ByVal Commission As Double)
    4. Delegate Sub DelegateLimitTrades(ByVal TradeID As String, ByVal OpenOrderID As String, ByVal UsedMargin As Double, ByVal OpenRate As Double, ByVal Amount As Integer, ByVal Limit As Double, ByVal Stoploss As Double, ByVal OpenTime As Date, ByVal GrossPL As Double, ByVal BuySell As String, ByVal OfferID As String, ByVal PL As Double, ByVal Commission As Double, ByVal AccountID As String)




    Also ich keine Ahnung ?(

    ok, anscheinend haben wir ein kleines Verständigungsproblem. Ja das kpl. Programm ist Multithreading!

    jedoch wird kein weiter Thread aus der Sub neu erstellt. Die Funktion Longtrade greift nicht auf eine andere Form zu.
    Das du jetzt soweit ins Detail gehst(vom deinem geistigen denken) wusste ich nicht. :-)! Mann merkt das du das schon länger machst ;-)!

    Problem habe ich jetzt gelöst!!! in dem ich jede function die tabels zugewiesen habe.

    VB.NET-Quellcode

    1. If CBool(Me.datagrid4(i, 9)) = False And Form6.CheckBox1.Checked = True Then
    3. If long1.longtrade1(Instrument) = True Then
    5. LLS = True
    6. buysell = "B"
    7. anzeige = "Longtrade_M15_1"
    8. GoTo order
    10. End If
    12. If Short1.Shorttrade1(Instrument) = True Then
    13. LLS = True
    14. buysell = "S"
    15. anzeige = "Shorttrade_M15_1"
    16. GoTo order
    18. End If
    19. End If
    20. [vbnet]

    Dim ergebniss As Boolean = False
    Dim tabellem5, tabellem15, tabellem30, tabellem60 As DataTable
    Dim posm30, posm5, posm15, posm60 As Integer

    tabellem5 = HystoryForm.Setm5.Tables(Instrument)
    tabellem15 = HystoryForm.Setm15.Tables(Instrument)
    tabellem30 = HystoryForm.Setm30.Tables(Instrument)
    tabellem60 = HystoryForm.Setm60.Tables(Instrument)

    posm5 = tabellem5.Rows.Count - 1
    posm15 = tabellem15.Rows.Count - 1
    posm30 = tabellem30.Rows.Count - 1
    posm60 = tabellem60.Rows.Count - 1

    If EMA.EMAzwischen(Instrument, "m15", 2.5, 10, 5, "Short") = True And EMA.EMAsinkt(Instrument, "m15", posm15, 5, "Short", 1.0, 0.2) = True _
    and EMA.EMAsinkt(Instrument, "m60", posm60, 10, "Short", 1.0, 0.2) = True Then
    if DMI.DMIgrößer(Instrument, "m15", "DMIM", 25.0, 10) = True And DMI.DMIkleiner(Instrument, "m15", "DMIP", 15, 10) = True _
    And DMI.DMIMsinkt(Instrument, "m15", posm15, 5, 5, 0.2) = True Then
    ergebniss = True
    end If

    End If
    Return ergebniss
    end Function

    [/vbnet]

    was währe den besser?

    soll ich ich direkt auf die die datasets zugreifen, also den ganzen müll den ich in die hystoryform habe in die einzelnen datasets einbauen und geht das überhaupt?


    So EDR, du bist ein Genie(du hattest mir die frage gestellt ob es module sind,deshalb?). Habe jetzt die Klassen in Module umgewandelt. Und es funktioniert perfekt.

    Aber warum und kann ich jetzt die datatables direkt an die einzelnen Funktion in den Modulen übergeben?

    die ruft die Funktion auf

    VB.NET-Quellcode

    1. Public class form1
    3. private Sub test1
    4. tabellem15 = HystoryForm.Setm15.Tables(Instrument)
    5. tabellem60 = HystoryForm.Setm60.Tables(Instrument)
    7. If longtrade1(tablem15,tabelm60) = True Then
    9. end if
    10. end Sub
    12. end class





    VB.NET-Quellcode

    1. Module test
    3. Public Function longtrade1(byval tabm1 as datatable, byval tab2 as datatable) as boolean
    5. 'auszuführender code
    7. end function
    9. end module



    Und ja du hast recht die Architektur ist nicht durchdacht bei meinem Projekt. Bin halt kein Profi und ich lerne jeden tag dazu :-)! Mache Hauptberuflich ja was anderes.

    Ähm, deine Frage lautete:

    Rattenfänger schrieb:

    Aber warum und kann ich jetzt die datatables direkt an die einzelnen Funktion in den Modulen übergeben?
    Bist du noch daran interessiert, oder hat sich das geklärt, oder ist dein Interesse daran verschwunden?


    Weil die Frage, ob das "geht", ist ja eine andere.


    Also falls du noch interesse hast, bitte beantworte meine Gegenfrage vollständig. Solange die Begriffe nicht klar sind, kann ich nur rumschwafeln.

    Also in post#16 sehe ich, was für dich "datatables direkt an die einzelnen Funktion in den Modulen übergeben" bedeutet. Das ist ja immerhin schonmal die hälfte der Antwort meiner Frage aus post#15.

    Beantwortest du noch den Rest, also was wäre ein Codebeispiel für "indirekt"?

    Also direkt funktioniert(habe es grad getestet, deshalb bin ich nicht anwesend gewesen)!Und natürlich bin ich noch interessiert!!!

    VB.NET-Quellcode

    1. Public Class Form1
    3. Public Sub test
    4. tabellem15 = HystoryForm.Setm15.Tables(Instrument)
    5. tabellem60 = HystoryForm.Setm60.Tables(Instrument)
    7. If longtrade1(instrument) = True Then
    9. end if
    10. end sub
    12. End class
    14. Module longtrade
    15. public function Longtrade1(byval Instrument as string) as booelean
    17. dim tabelm15,tabelm60 as datatable
    19. tabelm15 = hystoryform.setm15.tabel(Instrument)
    20. tabelm60 = hystoryform.setm60.tabel(Instrument)
    23. end Function
    24. end module


    das ist indirect, da ich erst in der ausführenden function auf die tabels verweise.

    Aber warum funktioniert das direkte verweisen auf Module und nicht in Klassen? Ich formuliere die frage mal um, warum kann ich an eine function die in einem Module ist, eine Table übergeben und wenn die function in einer Klasse ist, muss ich den verweis in der klasse erstellen?